F/6  11/12 


- — 

AO-AO^a  606 

UNCtASSlFlCO 

I »=  I 

AO 


AO4860e 


FOREST  PRODUCTS  LAB  MADISON  WIS 

PARVCOSTt  A PARTICLEBOARD  VARIABLE  COST  PRO«RAM.(U) 

1977  P J 1NCE»  6 B HARPOLE 

FS9TR-FPL-1*  NL 


1 


I 

» 


■1 

.1 


.?■ . 

• f' 

'4' 


■v 


i 


00 


(&)  i 


PARVCOST: 

A PARTICLEBOARD 
o VARIABLE  COST  PROGRAM 

< 


USDA  FOREST  SERVICE 
GENERAL  TECHNICAL  REPORT 
^PL.14 
1977 


D D C 1 


1 PtKKiT  LLCaLE  PROSIICIIOI  fj 

t f 

j\r?rK5f?iin  niHn] 

V JAN  12  1978 

1 ^ 
1 

llinsiEinrEljlJ 

\ 


ABSTRACT 


PARVCOST,  A FORTRAN  program,  was 
designed  to  develop  economic  and  financial 
analyses  of  systems  for  manufacturing  par- 
ticleboard. In  the  program,  costs  and  re- 
quirements of  wood  are  calculated  as  are 
chemicals  and  energy  per  unit  of  finished 
board  products.  Estimates  are  made  of  sen- 
sitivity of  the  finished  product  costs  to  changes 
in  unit  costs  of  energy  and  raw  materials. 
Weight  statistics  are  computed  for  the  finished 
product  and  for  the  profit  contribution  ratio  for 
values  of  given  products.  An  appendix  is  In- 
cluded with  a sample  program  output,  two  ver- 
sions of  data  decks  and  modifications,  notes 
on  use  of  the  two  versions,  and  a listing  of  the 
program  and  documentation  cards. 


/y/  70^ 


COMPUTATIONS 


\ 

PARVCOST  calculates  costs  and  re- 
quirements of  wood,  chemicals,  and  energy 
per  unit  of  finished  board  product.  It  estimates 
sensitivity  of  costs  of  finished  products  to 
changes  in  costs  of  units  of  energy  and  raw 
materials.  It  also  computes  weight  statistics  for 
the  finished  product  and  the  profit  contribution 
ratio  for  given  product  values. 

Raw  Materials,  Energy,  and  Costs 

PARVCOST  computes  input  re- 
quirements for  raw  material  and  energy  and 
variable  costs  of  particleboard  manufacture  in 
standard  units  of  finished  product  output 
(Mft*-3/8  in.,  Mft^-1/2-in.,  m^).  Computational 
outputs  of  PARVCOST  (appendix  A)  are  deriv- 
ed from  estimates  of  process  and  supply  re- 


quirements. 

Gross  input  requirements  per  unit  of  out- 
put for  particleboard  manufacture  are  always 
greater  than  the  final  amount  of  raw  materials 
that  physically  appear  In  a unit  of  the  finished 
product.  This  is  caused  by  fines,  trims,  and 
other  processing  material  and  energy  losses. 
The  phrase  “per  unit  of  output"  In  this  program 
refers  to  the  gross  input  requirements  per  unit 
of  finished  board  product.  Variable  costs  of 
production  are  calculated  as  gross  Input  re- 
quirements per  unit  of  product  multiplied  by 
estimated  price  for  given  raw  material  and 
energy  input. 

1/  Tha  Laboratory  is  maintained  in  cooperation  with  the 
University  of  WIsconsIn-Madlson. 
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INTRODUCTION 


A computer  program  for  the  variable  cost 
of  particleboard,  PARVCOST,  was  developed 
by  the  Marketing  and  Economics  Analysis 
Research  Work  Unit  of  the  Forest  Products 
Laboratory  (FPL).  The  objective  was  to 
automate  the  computations  of  raw  material 
and  energy  unit  cost,  board  statistics,  and 
energy  requirements  for  particleboard 
manufacture  from  estimates  of  material  costs 
and  energy  requirements.  Many  of  the  basic 
concepts  used  in  PARVCOST  were  adapted 
from  a computer  program  developed  by  G.  A. 
Koenigshof,  USDA,  Forest  Service,  Athens, 
Ga.,  to  evaluate  veneered  particleboard 


manufacturing  systems. 

PARVCOST  is  written  In  FORTRAN  and 
can  be  run  on  a UNIVAC  1110  (Univ.  of  WIs.),  a 
CDC  6500  (Purdue  UnIv.),  and  a DATACRAFT 
6024/3  (FPL). 

Appended  to  this  report  are  the  following: 
A sample  program  output;  a listing  of  a long 
(documented)  version  data  deck;  a sample  of  a 
short  version  data  deck;  two  program  cards 
needed  for  modification  of  the  two  versions; 
notes  on  use  of  the  two  versions;  and  a listing 
of  the  PARVCOST  program  and  documenta- 
tion cards. 


product.  If  there  Is  a change  In  the  cost  of  one 
raw  material,  the  new  total  gross  variable  cost 
can  be  calculated  by  simply  applying  a sen- 
sitivity equation  to  the  new  cost  of  that  raw 
material. 

The  effect  of  any  magnitude  of  change  in 
cost  of  wood  raw  material,  resin,  wax,  or  elec- 
tricity can  be  evaluated  using  the  appropriate 
sensitivity  equation.  Gross  variable  cost  Is  a 
strictly  linear  function  of  cost  of  wood,  resin, 
wax,  and  electricity  for  any  value  of  these  In- 
dividual costs.  However,  only  the  effect  of 
marginal  changes  In  fuel  costs  can  be 
evaluated  by  the  sensitivity  to  the  fuel-cost  for- 
mula. PARVCOST  always  selects  the  least  ex- 
pensive fuel  on  the  basis  of  cost  per  effective 
British  thermal  unit.  Large  changes  In  fuel  cost 
may  result  in  substituting  one  fuel  for  another. 

Profit  Contrlbutlor)  Ratio 

PARVCOST  calculates  a profit  contribu- 
tion ratio.  Profit  contribution  Is  the  net  sales 
value  plus  any  benefits  from  the  sale  of  surplus 
residues  minus  variable  costs  of  production. 
The  profit  contribution  ratio  is  the  ratio  of  the 
profit  contribution  to  the  net  sales  value,  which 
expresses  the  percent  of  revenues  available  to 
cover  other  operating  costs  and  yield  profits. 
The  PARVCOST  profit  contribution  ratio  can 
be  used  to  gage  the  relative  feasibility  of 
manufacturing  particleboard  between  sites 
where  raw  materials,  energy,  and  product  out- 
puts have  different  values,  but  other  operating 
costs  may  be  assumed  equal. 


DATA  REQUIREMENTS  OF 
OF  PARVCOST  PROGRAM 

Data  required  by  PARVCOST  consist  of  energy  (Btu)  and  electricity  (kWh)  per  cubic 

estimates  of  the  following  factors:  (1)  Specific  foot  of  output. 

gravity  and  moisture  content  of  wood,  bark,  Of  a total  of  48  Input  variables,  each  must 

and  pressed  panel,  (2)  cost  of  procuring  wood,  be  assigned  a value.  Forty-two  are  estimates  of 

chemicals,  residues,  fuel,  electricity,  (3)  costs  various  particleboard  manufacturing  factors; 

of  finished  board  product,  (4)  ratio  of  bark  to  five  are  simple  integer  option  variables  that 

wood  In  roundwood,(5)  percents  of  process  control  the  format  of  the  printed  program  out- 

resldues  loss  and  the  width  of  edging  trims,  put;  and  one  is  the  title  of  the  printed  output. 

(6)  finished  panel  size,  (7)  percent  face  and  Following  Is  a listing  of  the  48  Input  variables 

core  furnish,  (8)  weight  percentages  of  required  by  PARVCOST.  The  variables  are  In 

chemicals  needed  in  face  and  core  furnish,  the  order  in  which  they  occur  In  the  data  deck. 

(9)  British  thermal  unit  value  of  fines,  trims.  The  four-letter  program  name  of  each  variable 

bark,  and  fuel,  and  (10)  requirements  of  heat  precedes  each  definition. 


If  an  external  fuel,  in  addition  to  residues 
fuels,  is  needed,  PARVCOST  selects  the  least 
expensive  alternative  fuel— wood,  oil,  gas,  or 
coal— on  the  basis  of  cost  per  effective  heating 
value.  Energy  requirements  and  costs  are 
computed  In  terms  of  the  least  expensive  fuel 
available. 

Sensitivity  of  Unit  Variable  Costs 

Another  objective  of  PARVCOST  Is  to 
gage  the  sensitivity  of  total  gross  variable  cost 
to  possible  changes  In  Individual  market  costs 
of  raw  material  (wood,  resin,  and  wax)  and 
energy  (electricity  and  fuel).  Sensitivity  of  total 
gross  variable  cost  to  the  cost  for  each  of  these 
Is  given  In  the  PARVCOST  printed  output  In 
terms  of  total  gross  variable  cost  per  cubic  foot 
of  finished  product.  Sensitivity  Is  expressed  as 
simple  linear  equations  of  the  form, 

Y - AX  + B 

where 

Y Is  total  gross  variable  cost  per  cubic  foot  of 
panel  product; 

A,  a “slope"  coefficient  calculated  by  the 
program; 

X.  an  Individual  Item  cost  cn  an  Imput  basis 
(wood  cost  In  $/ft^,  price  of  oil  In  $/barrel); 
and 

B,  a constant  term  calculated  by  the  program. 

Sensitivity  equations  provide  for  deter- 
mining the  effect  that  changes  In  Input  prices 
for  raw  materials  will  have  on  total  gross 
variable  cost  per  cubic  foot  of  finished 


INPUT  VARIABLES 


1.  CCUF,  cost  of  wood  raw  material  In 
dollars  per  cubic  foot  (solid  volume). 

2.  SQRW,  ovendry  specific  gravity  of  wood 
raw  material  (average  value,  green  volume, 
and  dry  weight). 

3.  GRMC,  moisture  content  on  an  ovendry 
basis  of  wood  raw  material  (as  a decimal). 

4.  PCTB,  ratio  of  bark  to  wood  In  wood  raw 
material  (this  ratio  Is  on  a weight  basis  and 
refers  only  to  the  bark  that  Is  removed  and 
used  as  fuel). 

5.  WBMC,  moisture  content  on  an  ovendry 
basis  of  bark  (as  a decimal). 

6.  SQBK,  ovendry  specific  gravity  of  bark 
(average  value,  green  volume,  and  dry  weight). 

7.  CRES,  cost  of  resin  In  dollars  per  pound  of 
resin. 

8.  PRRF,  weight  percent  of  face  blend  re- 
quired to  be  resin  (as  a decimal). 

9.  PRRC,  weight  percent  of  core  blend  re- 
quired to  be  resin  (as  a decimal). 

10.  CWAX,  cost  of  wax  In  dollars  per  pound 
of  wax. 

11.  PWRF,  weight  percent  of  face  blend  re- 
quired to  be  wax  (as  a decimal). 

12.  PWRC,  weight  percent  of  core  blend  re- 
quired to  be  wax  (as  a decimal). 

13.  ODMC,  ovendry  basis  moisture  content  of 
wood  coming  out  of  dryer  (as  a decimal). 

14.  PCTF,  weight  percent  of  furnish  material 
lost  as  dry  fines  but  mostly  recoverable  as 
fines  fuel  (as  a decimal). 

15.  PCFF,  weight  percent  of  product  that  Is 
face  furnish  (as  a decimal). 

16.  PCCF,  weight  percent  of  product  that  Is 
core  furnish  (as  a decimal). 

17.  ODWP,  weight  In  pounds  per  solid  cubic 
foot  of  finished  product. 

18.  FPMC,  ovendry  basis  moisture  content  of 
wood  In  finished  product  (as  a decimal). 

19.  PTLQ,  width  In  Inches  of  panel  trims  cut 
away  along  length  of  product. 

20.  PTWD,  width  In  Inches  of  panel  trims  cut 
away  along  width  of  product. 

21.  PW8R,  weight  percent  of  wood  raw 
material  that  becomes  green  (wet  screened) 
wood  residue. 

22.  CORM,  f.o.b.— mill  value  of  any  surplus 
residues  (residue  mix)  In  dollars  per  pound. 

23.  CKWH,  cost  of  electricity  In  dollars  per 
kilowatt-hour. 


24.  BTUF,  average  higher  heating  value  of 
nonbark  wood  fuel  residues  In  million  British 
thermal  units  per  pound. 

25.  BTUB,  average  higher  heating  value  of 
bark  residues  In  million  British  thermal  units 
per  pound. 

26.  BTRD,  million  British  thermal  units  re- 
quired at  boiler  or  other  heat  recovery  device 
per  pound  of  water  evaporated  by  wood  dryer. 

27.  BTRP,  million  British  thermal  units  re- 
quired at  boiler  for  press  steam  per  cubic  foot 
cut  panel  product. 

28.  BTRT,  million  British  thermal  units  re- 
quired at  boiler  for  thaw  pond  per  cubic  foot 
cut  panel  product. 

29.  BTRH,  million  British  thermal  units  re- 
quired at  boiler  for  heating  per  cubic  foot  cut 
panel  product. 

30.  BTRM,  million  British  thermal  units  re- 
quired at  boiler  for  miscellaneous  purposes 
per  cubic  foot  cut  panel  product. 

31.  RKWH,  kilowatt-hours  of  electricity  re- 
quired per  cubic  foot  of  cut  panel  product. 

32.  PPWD,  width  of  pressed  panel  In  inches 
(trimmed  dimension). 

33.  PPLG,  length  of  pressed  p nel  In  Inches 
(trimmed  dimension). 

34.  SALE,  net  sales  value  f.o.b.  mill  of  product 
In  dollars  per  solid  cubic  foot. 

35.  PGAS,  price  of  natural  gas  In  dollars  per 
thousand  cubic  foot. 

36.  POIL,  price  of  fuel  oil  In  dollars  per  barrel. 

37.  PWOD,  price  of  external  (nonprocess 
residue)  wood  fuel  In  dollars  per  ton. 

38.  PCOL,  price  of  coal  In  dollars  per  ton. 

39.  BTUG,  million  British  thermal  units  per 
thousand  cubic  foot  of  natural  gas. 

40.  BTUO,  million  British  thermal  units  per 
barrel  of  oil. 

41.  BTUW,  million  British  thermal  units  per 
ton  of  wood  fuel. 

42.  BTUC,  million  British  thermal  units  per  ton 
of  coal. 

43.  ITOP,  coded  specification  of  how  trims  are 
to  be  handled  (0  = trims  recycled  as  furnish; 
1 - trims  used  as  fuel). 

44.  IOP1,  coded  specification  of  size  of  panel 
for  which  data  should  be  printed  In  second 
data  column  of  data  printout  (0  (or  blank)  for 
3/8  In.,  1 for  1/4  In.,  2 for  3/4  In.,  3 for  5/8  In., 
and  4 for  1/2  In.). 


45.  I0P2,  coded  specification  of  size  of  panel 
for  which  data  should  be  printed  In  third  data 
column  of  data  printout  (0  (or  blank)  for  1/2  In., 
1 for  1/4  In.,  2 for  3/4  In.,  3 for  5/8  In.,  and  4 for 
cubic  meter). 

46.  NOPT,  coded  specification  of  number  of 


data  columns  to  be  printed  on  printed  output 
(3  for  3 columns,  0 (or  blank)  for  5 columns). 

47.  NCOP,  specification  of  number  of  copies 
of  output  to  be  printed  (01  to  10). 

48.  TITL,  an  alphanumeric  array  for  Input  of 
title  of  printed  output. 


STRUCTURE  OF  DATA  DECK 


The  PARVCOST  data  deck  has  two  ver- 
sions: A long,  documented  version  (DV) 
(appendix  B)  and  a short,  not  documented  ver- 
sion (SV)  for  which  a sample  is  given  In  appen- 
dix C.  Either  version  may  be  used  for  entering 


data  into  the  PARVCOST  program.  The  two 
versions  enter  exactly  the  same  data  in  the 
same  order.  The  only  difference  between  the 
two  versions  Is  that  only  the  long  version  con- 
tains documentation  of  each  Input  variable. 


LONG  VERSION  DATA  DECK 


The  DV  data  deck  (appendix  B)  has  104 
lines.  Most  of  the  DV  data  deck  Is  documenta- 
tion that  explains  the  data-coding  sequence;  It 
does  not  Influence  the  function  of  the  program. 
The  documentation  In  the  DV  data  deck  Is  es- 
sential If  the  deck  Is  stored  In  a computing 
facility,  communication  is  established  via  a 
teletype  terminal  or  similar  device,  and  stored 
data  Is  to  be  edited  line-by-line.  A list  of  the  DV 
data  deck  can  also  be  used  as  a coding  guide 
reference  if  using  the  SV  data  deck. 

In  using  the  DV  data  deck,  data  to  be 
entered  is  shown  in  appendix  B and  follows 
"WOOD  RAW  MATERIAL  COST  PER  CUBIC 
FOOT.”  The  numerical  Information  Is  given 
that  should  be  entered  in  columns  6 through 
18;  each  datum  must  Include  a decimal  point. 


Program  controls  are  entered  as  Integer  data 
without  decimal  points  In  columns  1 and  2 (as 
indicated)  on  the  five  data  cards  preceding  the 
program  title  cards  (last  cards  in  data  deck). 
Alphanumeric  (title  of  output)  data  are  entered 
on  the  last  two  cards  of  the  data  deck.  All  of  the 
other  data  columns  and  documentation  com- 
ments of  the  DV  data  deck  are  nonfunctional. 

Use  of  the  DV  data  deck  requires  that 
program  card  6 be  replaced  by  card  6B 
(appendix  D).  Thus,  if  using  the  DV  data  deck, 
remove  main  program  card  number  6 and  in- 
sert card  number  6B  in  the  same  place  in  the 
main  program.  The  program  will  not  run  with 
the  DV  data  deck  unless  this  modification  has 
been  made. 


SHORT  VERSION 
DATA  DECK  FORMAT 


The  SV  data  deck  consists  of  10  data 
cards.  Forty-eight  input  variables  are  entered 
on  10  cards  in  the  same  order  listed  in  the  long 
version  section  on  data  requirements.  If  using 
the  SV  deck,  all  of  the  required  statistics  of 
particleboard  manufacture  (the  first  42  input 


variables)  are  entered  on  cards  1 to  6 (table  1). 
Program  control  specifications  (input  variables 
43-47)  are  entered  on  card  7,  The  title  of  the 
output  is  entered  on  cards  6 through  10. 

Cards  1 through  6,  instructions:  The  es- 
timates for  the  first  42  input  variables  are 
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entered  on  the  first  six  cards  of  the  SV  data 
deck.  Seven  estimates  are  entered  on  each 
card.  One  estimate  is  punched  In  every  10 
spaces  starting  in  columns  1 through  10  of 
each  card.  Each  estimate  that  is  punched  must 


include  a decimal  point.  An  estimate  may  be 
punched  anywhere  In  the  10-space  field 
allotted  to  each  variable.  Input  variables  for 
cards  1 through  6 and  the  columns  for  their  en- 
try are  listed  in  table  1. 


Table  1 

—Input  variables  for  cards  1 through  6 

Card. 

Columns 

No. 

1-10 

11-20 

21-30 

31-40 

41-50 

51-60 

61-70 

1 

CCUF 

SGRW 

GRMC 

PCTB 

WBMC 

SQBK 

CRES 

2 

PRRF 

PRRC 

CWAX 

PWRF 

PWRC 

OOMC 

PCTF 

3 

PCFF 

PCCF 

ODWP 

FPMC 

PTLG 

PTWD 

PWSR 

4 

CORM 

CKWH 

BTUF 

BTUB 

BTRD 

BTRP 

BTRT 

5 

BTRH 

BTRM 

RKWH 

PPWO 

PPLQ 

SALE 

PGAS 

6 

POIL 

PWOD 

PCOL 

BTUG 

BTUO 

BTUW 

BTUC 

Card  7,  instructions:  input  variables  43 
through  47  are  specified  on  card  7.  The  single 
integer  specifications  for  ITOP,  IOP1,  IOP2, 
and  NOPT  are  punched  in  columns  1 through 
4,  respectively.  The  two  integer  specifications 
for  NCOP  are  punched  in  columns  5 and  6. 
The  appropriate  integers  to  punch  in  these 
columns  are  discussed  In  the  listing  of  Input 
variables  in  the  various  section  on  data  re- 
quirements for  the  PARVCOST  program. 

Cards  8 through  10,  instructions:  The  title 
desired  to  be  printed  at  the  top  of  the  program 


output  is  punched  on  cards  8 through  10  of  the 
SV  data  deck.  The  title  should  be  typed  on  the 
center  of  these  cards. 

Appendix  B is  a listing  of  a sample  SV 
data  deck.  Note  that  It  contains  the  same  data 
as  the  sample  listing  of  the  DV  version  in 
appendix  A.  If  the  SV  version  of  the  data  deck 
is  used,  program  card  6 (not  6B,  see  appendix 
D)  must  be  in  the  program  deck.  The  program 
will  not  run  with  the  SV  data  deck  unless 
program  card  6 is  In  the  program  deck  and 
card  6B  has  been  removed. 


APPENDIX  A.— Sampto  Program  Output  Obtainad  by  Running  PARVC08T  with  Sample  Data  from 


APPENDIX  B.— Listing  of  Long,  or 
Documontod,  Voroion  Data  Dock 


THIS  THE  UOCUHENTEO  VERSION  OF  THE  PAHVCOST  DATA  DECK 
COLUHN  hIDThS 

lai  jox  ] 

HOOD  RAH  HtTERIAL  COST  PER  CUSIC  FOOT  ‘ 

CCUFa  ,Zf  I 

0.  0.  SPECIFIC  GRAVITY  OF  THE  HOOC  RAM  haTERIAL 
SGRHa  0.S92R5 

MOISTURE  CONTENT  0.  0.  BASIS  OF  THE  GREEN  MOOD  RAH  MATERIAL 
GRHCa  .SO 

RATIO  OF  BARK  TO  MOOD  IN  hOOO  RAH  MATERIAL 
PCTBa  .12 

MOISTURE  CONTENT  0.  0.  BASIS  OF  GREEN  BARK  MATERIAL 

MBHCa  1.00  ; 

0.  0.  SPECIFIC  GRAVITY  OF  THE  BARK 

SGBKaC.TOO 

COST  OF  RESIN  PER  POUNO  IS 

CRESa  .}S 

PERCENT  RESIN  REOUIREO  IN  FACE  IS 

PRRFa  .07  I 

PERCENT  RESIN  REQUIREO  IN  CORE  IS  J 

PRRCa  .05  J 

COST  OF  MAX  PER  POUND  OF  »Ax  IS  j 

CMAxa  .12  j 

PERCENT  OF  MAX  REQUIRED  IN  FACE  IS  \ 

PMRFa  .01  3 

PERCENT  OF  RAX  REQUIRED  IN  CORE  IS 

, PHRCa  .01  1 

HOIST.  CONTENT  »00D  OUT  OF  ORYER 
OOMCa  .06 

The  recoverable  percent  of  fines  loss  cmeigmt  percent  of  mood  rah  material] 

j PCTFa  .08 

PERCENT  OF  PRODUCT  IN  FACE  FURNISH 

1 PCFFa  .75  i 

PERCENT  OF  product  In  C0»E  FURNISH 

PCCFa  .25  i 

0.0.  mt.  of  pressed  PANEL/CU.FT.  1 

OOHPa35.0  I 

MOIST.  CONTENT  OF  MQOO  IN  PHOOUCT 

I FPHCa  .OR  ' 

PANEL  trims  along  LENGTH  (INCHES)  i 

PTLGa  1.5  i 

PANEL  trims  along  mIOTM  (INCHES)  j 

PTHOa  1.5  I 

PERCENT  OF  MOOO  ram  MATERIAL  LOST  AS  GREEN  RESIDUE#  (NECOVEREO  AS  FUEL) 

PHSRa  0.05 

value  F.O.B.-mILL  PROCESS  GENERATED  HOOO  AND  BARK  RESIDUES  (AvERAGES/POUND) 

COORaO.OOO 

COST  OF  electricity  PER  kmm. 

CKMHa  .020  ! 

■ BTU  IN  HOOO  FINES  ANO  RESIDUES  (MILLION  BTU/LB.  0.0.  HIGHER  HEATING  VALUE)  i 

j BTUFa. 008500 

BTU  IN  bark  (MILLION  BTU/LB.  0.0.  HIGHER  HEATING  VALUE) 

BTUBa.O0R5OO 

ORTCR  BTU  OEMANO  AT  BOILER— MILLION  BTU7LB.  MATER  EVAPORATED 

BTROa  .001700  i 

PROC.  steam  PRESS  OTU  demand  AT  BOILER— MILL.  BTU/CU.  FT.  PANELS 
BTRPa  .01R200 

THAH  POND  steam  BTU  OEMANO  AT  B0ILER--HILL.  BTU/CU.  FT.  PANELS 
BTRTa  0.002000 

HEATING  steam  BTU  DEMAND  AT  BOILER— HILL.  BTU/CU.  FT.  PANELS 
BTRHa  .016000 

miscellaneous  steam  BTU  demand  AT  BOILER— MILL.  BTU/CU.  FT.  PANELS 
BTRHa  .003200 

ELECTRIC  USAGE— Khh./CU.  FT.  PANELS 

PflfcSStO  PANEL  NlDTH  (INCHES) 

PPHO«  «S.O 

PRESSED  PANEL  LENGTH  (INCHES) 

PPLGa  Ra.O 

the  net  sales  value  (s/cu.  ft.) 

SALEa  2.RT6 

AVERAGE  anticipated  PRICE  DF  NATURAL  CAS  PER  MCF 
PGASa  O.RO 


-8- 


AVERiCe  AnMCIRATED  price  op  oil  per  •ARRCL 

POILP  *.00 

AVERAGE  anticipated  PRICE  Of  lOOD  TO  bE  USED  AS  FUEL  PER  TON 
PmOOpIT.OO 

AVERAGE  anticipated  PRICE  OF  COAL  PER  TON 
PCOLP  16.0 

million  STuS  available  PER  MCF  OF  NATURAL  CAS 
STUGa  I. 00 

million  BT'JS  available  per  BAPRtL  OF  OIL 

bTUOi  5.00 

MILLION  BTUS  available  per  TUN  OF  MOOO 
BTUMA  18.0 

MILLION  SruS  available  per  TON  OF  COAL 
6TUC«  26.0 

leave  NEIT  line  Blank  if  trims  are  RECTCLED  as  furnish,  I IN  COL.  I IF  AS  FUEL 

ON  THE  FOLLOMING  LINE  SPECIFY  lOPl,  THE  TYPE  OF  OUTPUT  IN  COLUMN  2,  SPECIFY 
1 FOR  l/«  IN, ,2  FOR  J/«  IN.,J  FOP  5/8  IN,, A FOR  1/2  IN,,  DEFAULT  (0)  IS  5/8  IN, 

0 

ON  THE  FOllOmING  line  SPECIFY  I0P2,  THE  TYPE  OF  OUTPUT  IN  COLUMN  5.  SPECIFY 
1 FOR  I/A  IN. ,2  FOR  5/A  IN. ,5  FOR  5/6  IN., A FOR  CU. METER,  DEFAULT  (OJ  JS  1/2  IN. 
0 

ON  THE  NEM  LINE  SPECIFY  THE  NUMBER  OF  COLUMNS  OF  DATA  OUTPUT  TO  BE  PRINTED 
specify  5 FOR  5 COLUMN  nIOTH,  DEFAULT  (0)  IS  5 COLUMN  HIOTM 
0 

ON  THE  FOllOmING  LINE  SPECIFY  NCOP,  THE  NUMBER  OF  COPIES  (01  TO  10) 

01 

CENTER  THE  TJTLE  ON  THE  NEXT  THREE  LINES 
material  ANO  RESOURCE  REQUIREMENTS,  BOARD  STATS,  AND  VARIABLE  COSTS  FOR  MAN- 
UFACTURE OF  STRUTTURAl  particleboard  per  unit  of  OUTPUT  (hypothetical  TEST) 


Data  and  cards  of  the  short  version  data  presented  here  as  they  would  be  entered  In  the 

deck:  The  same  sample  data  presented  for  the  data  deck  for  the  short  version, 

documented  version  sample  in  appendix  A are 
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APPENDIX  D.— Program  Cards  6 and  6B 
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Program  card  6,  to  be  used  with  the  short  version  data  deck 
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Program  card  6B,  for  the  long,  documented  version  data  deck 


APPENDIX  E.~NotM  on  Um  of  Program 


I 


Calculation  of  Fuel  Statlatica 

PARVCOST  uses  the  data  Input  prices 
and  heating  values  of  the  four  types  of  external 
fuel— wood,  coal,  oil,  and  natural  gas— to 
select  the  most  economical  fuel.  It  may 
become  desirable  to  exclude  one  or  more  of 
these  fuels  from  consideration  (for  example, 
natural  gas  may  be  excluded  as  a potential  fuel 
if  supplies  are  Interruptible).  Any  one  of  the 
four  fuels  can  be  excluded  as  a fuel  by  Input- 
ting an  imaginary  high  price  for  that  ^el, 
because  PARVCOST  considers  only  the  least 
expensive  fuel.  However,  an  accurate  cost  for 
procuring  either  oil  or  natural  gas  should 
always  be  entered  in  the  data  deck.  The 
reason  Is  oil  or  natural  gas  will  be  needed  as 
an  auxiliary  fuel  for  wood  residues,  bark,  and 
external  wood  fuel.  The  program  calculates 
the  cost  of  auxiliary  fuel  on  the  basis  of  the  cost 
of  oil  or  natural  gas,  whichever  is  cheapest  per 
effective  British  thermal  unit. 

The  price  of  fuel  as  given  in  the  output  (In 
dollars  per  million  effective  Btu’s)  Is  a weighted 
average  that  includes  the  cost  of  auxiliary  fuel 
and  the  reduction  in  costs  attributable  to  using 
process  residue  fuel.  If  process  residues  are 
sufficient  to  supply  the  energy  requirement, 
fuel  price  Is  simply  the  price  of  auxiliary  fuel 
per  million  effective  British  thermal  units  from 
residues  and  auxiliary  fuel. 

PARVCOST  Includes  subroutines  that 
calculate  the  effective  heating  value  of  fuels. 
All  data  for  heating  value  entered  In  the  data 
deck  should  be  the  "higher  heating"  value. 


which  Is  the  maximum  heat  released  by  com- 
bustion of  dry  fuel  determined  in  a bomb 
calorimeter.  This  is  the  most  common  method 
of  reporting  the  heating  value  of  fuels. 

Internal  Program  Assumptions 

Several  process  variables  are  assigned 
fixed  values  within  the  PARVCOST  program. 
These  variables  Include  the  following: 

PERM,  the  percent  of  nonrenewable  fines 
loss,  which  Is  assigned  a value  of  3 percent  In 
statement  number  78; 

FACT,  the  weight  in  pounds  of  a bone-dry 
unit  of  process  residues  mix,  which  Is  assigned 
a value  of  2,400  In  statement  number  182; 

AUXF,  the  percent  of  process  require- 
ment of  British  thermal  units  that  must  be 
supplied  by  auxiliary  fuel  for  wood  or  residues 
fuel,  which  Is  assigned  a value  of  5 percent  In 
statement  number  109; 

T1,  the  ambient  temperature  of  fuel  and 
air  for  combustion  of  residue  fuels  In  degrees 
Fahrenheit,  which  is  assigned  a value  of  68  In 
statement  number  8 of  subroutine  SUB1; 

T2,  the  stack  gas  temperature  for  com- 
bustion of  residue  fuels  in  degrees  Fahrenheit, 
which  is  assigned  a value  of  400  in  statement 
number  9 of  subroutine  SUB1;  and 

PCTR,  the  percent  excess  air  in  combus- 
tion of  residue  fuels,  which  is  assigned  a value 
of  40  percent  in  statement  number  7 of  sub- 
routine SUB1. 

If  it  Is  necessary  to  change  any  of  these 
fixed  assumptions,  the  program  statements 
must  be  changed. 


APPENDIX  F.— Listing  of  PARVC08T 
Program  and  Doeumontation  Cards 


)'<HTICLE‘40tRO  ViRUDLC  COST  PROGRSHi  PtRvCOST 


PETER  IXCE 


GEORGE  0.  HPRPOLE 


'J.  S.  FOREST  PRODUCTS  1*0. > USD* 
xiOISON,  »ISCOHS10  S3T05 
"*RCM,  1977 


Ptuvcosr  IS  * FORTPtN  PR0GR*P  OESIGSEO  TO  tSSIST 
development  of  economic  »N0  FINiNCIAL  ‘NiLTSIS  OF  P»RT ICLEBO*RO 
m*ni)F*CTuRING  SVSTEmS.  PiRVCOST  C*LCUL»T£S  COSTS  *NO 
REOUIREmEnTS  of  kOOO.  CMEHIC4LS  *NO  ENERGY  PER  UNIT  OF 
MnISmeu  80»R0  PRODUCT.  IT  ESI1m*TES  SENSITIVITY  OF  FINISHED 
PRODUCT  COSTS  TO  changes  In  unit  COSTS  OF  ENERGY  AND  RAW 
materials.  If  ALSO  COMPUTES  WEIGHT  STATISTICS  FOR  THE 
finished  product  and  The  PROFIT  CONTRIBUTION  RATIO  FOR 
GIVEN  product  values. 

PANvCnST  program  INPUT  REQUIRES  estimates  of  (1)  SPECIFIC 
gravity  and  moisture  content  of  wDOO.  "ARk  and  pressed  panel. 

12)  mar«ET  obicES  of  WOOD.  CmE“IC*LS,  RESIDUES,  BARK, 

Fuel,  electricity  and  the  finished  board  product,  (3)  RATIO 

OF  bark  10  WOOD  IN  ROUNOWPOD.  (<i)  PROCESS  FINES  LOSS  PERCENT 
AND  »IDTh  of  edging  trims,  (5)  finished  panel  SIEE.  PERCENT 
FACE  and  CORE  FuRnISm,  and  PERCENTAGES  OF  CHEMICALS  NEEDED 
IN  furnish,  (9)  B.T.u.  value  of  residues,  0arb  and  Fuel, 

t7l  B.T.U.  RF.TIISEMENTS  PER  CUBIC  FOm  OF  OUTPUT  FOR  PROCESS 
steam  anC  ALSO  electricity  requirements. 


"Et  terms 


Pmh  JMT  of  output  a..  (PER  UNIT  OF  PRODUCT,  PER  CUBIC  FOOT 
Cut  PANELS,  OR  "EP  CUBIC  FOOT  OF  CUT  PANEL  PRODUCT) 

eacept  for  hoard  weight  statistics,  per  unit  of  output 

ALWAYS  REFERS  TO  THE  GROSS  MATERIAL  BEOuIBEmENTS  OR 
COSTS  OF  INPUTS  PER  UNIT  OF  FINISHED  BOARD  PRODUCT 
OUTPUT  AND  INCLUDE  the  quantities  OR  COSTS  OF  ALL 
MATERIALS  LOST  FROM  THE  FINISHED  PRODUCT  OUTPUT  A$ 

TRIMS  OR  RESIDUE.  BOARD  WEIGHT  STATISTICS  ARE  ABSOLUTE 
statistics  which  do  not  involve  PROCESSING  WEIGHT  LOSSES. 

sensitivity  DF  unit  variable  cost  AAA  THE  SENSITIVITY  OF  THE 

UNIT  vARlABLt  cost  (COST  PER  CUBIC  FOOT  OF  OUTPUT)  TO  TH£ 
COSTS  OF  WOOD.  RESIN,  wAt.  ELECTRICITY,  ANO  FUEL  ARE 
EAPRESSEO  IN  THE  FORM  OF  LINEAR  EQUATIONS.  THESE 

equations  apply  only  to  The  sensitivity  of  gross  variable 

COST  PER  CUBIC  FOOT  OF  FINISHED  PRODUCT  OUTPUT. 


alphabetical  listing  AND  DEFINITIONS  OF  PROGRAM  VARIABLES 


•INPUT'  MEANS  the  variable  is  an  input  variable 
ANO  hence  OCCURS  ALSO  In  THE  DATA  DECK 


•IMTERNtL'  MEANS  THE  VARIABLE  IS  USED  STRICTLY  mIThIN 
The  RROCRam  and  arrears  ONLY  FOR  THE  RURROSES 
OF  CALCULATION  OR  CLARIFICATION 

■OuTRiiT*  MEANS  the  VARIARLE  mill  aRREAR  AS  RART 

OF  THE  RRINTEO  OUTRUT  (A  FEm  VARIABLES  ARE 
BOTH  'INPUT'  ANO  'OUTPUT') 

'SURI'  means  The  VARIABLE  IS  USED  mIThIN  SUBROUTINE  'SU8I' 
'8UR^'  NAANS  The  VARIABLE  IS  USED  mITHIN  subroutine  'SuB?' 


Al>AS...(OuTRuT)  SENSITIVITY  ANALYSIS  FIRST  ORDER  COEFFICIENTS 
OR  'SLOPE'  terms  in  The  LINEAR  EQUATIONS  RELATING  NET 
variable  cost  to  the  COST,  ON  AN  INPUT  BASIS  OF  ‘tQuuOoQOD, 
RESIN.  HAI.  ELECTRIC  RONER.  ANO  FUEL 

abtr.,.. (Internal)  average  effective  h.t.u.  rer  pouno  of 

RESIDUES 

AU«F.,.. (INTERNAL)  The  PERCENi  OF  TOTAL  mOOO  ANO  AUXILIARY  FUEL 
UN  A B.T.U.  BASIS  MHICH  must  BE  auxiliary  fuel  required 
TO  BURN  mOOO  or  BARa  FuEL  (AUXF  IS  ASSIGNED  A VALUE  by 
THE  program) 

AUXI.... (OUTPUT)  UMTS  OF  AUXILIARY  FUEL  REQUIRED  (BARRELS  OF  OIL 
UR  “Cf  OF  NATURAL  GAS)  PER  CUBIC  FOOT  OF  CUT  PANEL 
RROCUCT 

AVH (SU91)  available  heat  of  hood  FUEL  (BTU'S  PER  ROUND) 

Bl-Bf... (OUTPUT)  SENSITIVITY  ANALYSIS  CONSTANTS  IN  THE  LINEAR 

equations  relating  nET  VARIABLE  COST  TO  THE  COST,  ON  AN 
INPUT  BASIS  OF  ROUNOmOOD.  RESIN,  MAX,  ELECTRIC  RONER, 

ANO  FUEL 

BauX.,.. (OUTPUT)  B.T.U.S  SUPPLIED  BY  aiiEilIARY  FUEL  PER  CU.  FT. 

CUT  PANEL  PRODUCT 

BTBK.,.. (OUTPUT)  B.T.U.  VALUE  OF  THE  BARN  FUEL  CENERATEO  PER 
CUBIC  FOOT  OF  CUT  PANEL  PRODUCT 

BTCF....(SUB2)  million  EFFECTIVE  B.T.U.  PER  UNIT  OF  FUEL  FOR 
NON-RESIDUE  FUELS 

BTFN.... (INTERNAL)  million  EFFECTIVE  B.T.U. 'S  IN  PROCESS  mOOO 

RESIDUE  Fuel  per  cubic  foot  cut  panels 

BTFU....(SU82)  B.T.U.  VALUE  OF  FUEL  PER  UNIT  OF  FUEL  IN 
MILLION  B.T.U.  PER  FUEL  UNIT 

BT-«CCCCO*N-OT»OOTPOT*  mvlLVONS  OF  BCTCOC  v-Ev  vT  TvE  BOvLE* 

BY  THE  ORIER  TO  EVAPORATE  ONE  POUND  OF  MOISTURE 

BTRH....(INPuTvOuTPUT)  millions  of  B.T.U.  REQUIRED  AT  THE  BOILER 
FOR  HEATING  steam  PER  CUBIC  FOOT  OF  CUT  PANEL  PRODUCT 

BTRM..,.(lNPUTtOUTPUT)  millions  OF  B.T.U.  REQUIRED  AT  THE  BOILER 
FOR  miscellaneous  PURPOSES  PER  CUBIC  FOOT  OP  CUT  PANEL 
PROCUCT 

BTRP....(INPuT*OUTPUT)  millions  of  B.T.U.  REQUIRED  AT  fHE  BOILER 

FOR  The  press  per  cubic  foot  of  cut  panel  product 

BrRT....(INPuT»OuTPUT)  MILLIONS  OF  B.T.U.  REQUIRED  AT  THE  BOILER 
FOR  THE  Thah  POND  PER  CUBIC  FOOT  OF  CUT  PANEL  PRODUCT 

BTUB.. ..(INPUT)  higher  heating  VALUE  IN  MILLIONS  OF  B.T.U.  PER 
POUND  OF  OVEN  DRY  BARM  FUEL 

BTijC.... (INPUT)  higher  heating  vALuE  OF  COAL  IN  million  B.T.U. 

PER  ton  of  coal 

BTuC....(SUHn  effective  B.T.U.S  PER  POUNO  OF  hOOO  OR  BARR 
RESIDUES  FUEL 


14 


1 


C»  HTijf ....(INPUT)  HIGMEP  HCtTlNG  v4LuE  is  h1LLI0'<S  OP  O.t.u,  PEP 
C*  POUND  OP  OVEN  OPT  PINES  PUEL 

C» 

C*  STuO.... (INPUT)  higher  hEPIInG  VPLuE  OP  N4T.  GPS  IN  MILLION 
C«  S.T.U.  OP  NPTUPPL  £PS 

C* 

C*  PTUO.... (INPUT)  higher  HEPTING  VPLuE  OP  OIL  IN  hIllION  S.T.U. 

cp  per  sprrel  op  oil 

C* 

C*  BTuH.... (INPUT)  higher  hEPTINC  VPLUE  OP  EPTERNPL  ROOD  PUEL  IN 
C*  million  tf.r.U.  PER  TON  OP  rood  PUEL 

C« 

C*  )<TVP....(INTERNPL1  EPPECriVE  S.T.U.  VPLUE  OP  PINES  PER  CUBIC 
C«  POOT  OP  CUT  PPNEL  PRODUCT 

C* 

C*  BThR.... (OUTPUT)  million  EPPECTIVE  B.T.U.'S  IN  RET  ROOD 
C*  RESIDUES  PER  CUBIC  POOT  CUT  PPNELS 

C» 

C*  CPUX.... (OUTPUT)  THE  COST  UP  PUXILIPRT  PUEL  PER  CUBIC  POOT  OP 
c*  CUT  ppnel  product 

c* 

C*  CCUP.... (INPUT)  THE  COST  OP  ROOD  RPR  hpTERIPL  PER  CUBIC  POOT  OP 
C*  pOOO  RPR  HPTERIPL 

C« 

C*  CPRM.... (OUTPUT)  cubic  PEET  OP  ROOD  RPR  HPTERIPL  REOUIREO  PER 
C«  CUBIC  POOT  OP  CUT  PPNEL  PRODUCT 

CP 

C*  Cxhm....(INPuTpOUTPUT)  COST  OP  ELECTRICITY  PER  KILORPTT*HOUR 

Cp 

CP  COST. ...(OUTPUT)  The  COST  OP  FUEL  PER  MILLION  PVERPCE  EPPECTIVE 

CP  b.I.u. 

CP 

CP  COPH.... (INPUT)  P.O.B.-hill  hpRkET  VPLUE  OP  THE  RESIDUE  mix 
CP  PER  POUND  OP  RESIDUES 

Cp 

Cp  C0RR....(InTERNPL)  height  OP  RESINS  REOUIREO  BY  PROCESS  POR 
Cp  cone  Furnish  per  cu.  ft,  op  cut  ppnel  product  (in  pounds) 

Cp 

C*  COnh....((NTERnpL)  REIChT  OP  RPX  REQUIRED  BY  PROCESS  FOR  CORE 
CP  FURNISH  PER  CU.  FT.  OP  CUT  PPNEL  PRODUCT  (IN  POUNDS) 

Cp 

Cp  C»ES....(INPijTpOUTPUT)  THE  COST  OP  RESIN  PER  POUND  OP  RESIN 

Cp 

Cp  ChPX....(INPijTpOUTPUT)  THE  COST  OP  RPX  PER  POUND  OF  RPX 

CP 

Cp  Ohl (SuBI)  dry  GPS  HEPT  LOSS  PERCENT  OP  PVPILPBLE  MEPT 

Cp 

C*  nM(.T....(SubI  ) DRY  bPSIS  MOISTURE  CONTENT  OP  ROOD  OR  SPRR  FUEL 

CP 

CP  ORYH.... (OUTPUT)  PUEL  VPLUE  REQUIRED  BY  DRYER  IN  MILLION 
Cp  effective  M.T.U.  PER  CUBIC  POOT  OP  CuT  PPNEL  PRODUCT 

Cp 

Cp  tBOP....(lNTERNPL)  MILLION  EFFECTIVE  B.T.U.'S  PER  POUND  OP 
Cp  process  dry  rOOO  RESIDUE  FUEL 

Cp 

Cp  E«TB....(INTERNPL)  The  effective  B.T.U.'S  PER  POUND  OP  8PRK  PUEL 

Cp 

Cp  ESTC....(I'iTERNPL>  “IlLION  EFFECTIVE  B.T.U.  PER  TON  OF  COPL 

C* 

CP  EBTG....(INTERNPL)  million  effective  B.T.U.  PER  MCP  OP  NPT.  GPS 

CP 

CP  EbTO....(lNTERNPI.)  million  EFFECTIVE  B.T.U.  PER  BPRREL  OP  OIL 

CP 

C<  EBTH....(INTERNPL)  million  EPPECTIVE  B.T.U.  PER  TON  OP  EXTERNPL 
C*  (NON'PROCESS  RESIDUE)  ROOD  PUEL 

C» 

Cp  EBHR....(tNTERNPL)  MILLION  EPPECTIVE  B.T.U.'S  PER  POUND  OP 
Cp  process  rET  rOUO  RESIDUE  PuEL 

Cp 

CP  EPF (SUBI)  efficiency  PERCENT  OF  PVPILPBLE  HEPT 

Cp 

Cp  PPCR....(INTERNPL)  HEIGHT  OP  RESINS  REQUIRED  BY  PROCESS  FOR 
Cp  FPCE  furnish  per  CU.  FT.  OP  CUT  PPNEL  PRODUCT  (IN  POUNDS) 

Cp 

Cp  PPCT....(InTERNPL)  numBEP  op  pounds  per  BONE>ORY«UNIT 

CP 

CP  PPCH....(INTERNPL)  height  OP  RPX  REQUIRED  BY  PROCESS  FOR  PPCE 
C*  FURNISH  PER  CU.  FT.  OP  CUT  PPNEL  PRODUCT  (IN  POUNDS) 

Cp 
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tINPUT»OUTPur)  POISTUPE  CONTENT  OF  THE  *000  IN  THE 
finished  PPDUOCT  (PERCENT  O.D.  SFSIS) 

(iNTEPNtL)  finished  PiNtL  SUE  IN  SQUARE  INCHES 


'P“C.. 

FPSZ.. 

PRON,. 

Fuel.. 


Cb« 


GHrt,. 

r.HFF.. 

GRHC.. 

GO«U. . 
GRhF., 

G»CO.. 

GhOO.. 

GNTF.. 

HHL... 
hhT  » . . 

IFOP.. 

lUPl  .. 

lOP?.. 
I TOP.. 

N*»F . . 

NCOP.. 

NOPT.. 

ODHC.. 

liO.P.. 

nooH . . 


p 

‘CCF.. 

PC»F.. 


(OUTPUT)  NET  Fuel  v»Ll)E  REQUIRED  IN  hIlLION  EFFECTIVE 
9.T.U.  PER  Cu.  ft.  of  Cut  p*NEL  PROOUCT 

(OUTPUT)  The  units  OF  EVTERnrl  NON-RESIOUE  FUEL  (BtRRELS. 
TONS,  UR  HCF)  REQUIRED  PER  CUBIC  FOOT  OF  CUT  PFNEL 
PROOUCT 

(OUTPUT)  CROSS  BOFRP  HEIGHT  OF  PANELS  P£R  CUBIC  FOOT 
OF  PANEL  (IN  POUNDS) 

(SUHI)  CHtEN  BASIS  HCISTURE  CONTENT  OF  hDOD  OR  BARB  FuEL 

(INTERNAL)  POUNDS  OF  PROCESS  hOOO  FUEL  FINES  AND  TRIPS 
CENEPATEO  PER  CU.  FT,  OF  CUT  PANEL  PROOUCT 

(INPUT.  MOISTURE  CONTENT  OF  hOOO  FURNISH  RAH  MATERIAL 
BEFORE  entering  process  It  0.0.) 

( OUTPUT)  POUNDS  OF  GREEN  hOOO  RAh  MATERIAL  REQUIRED 
PER  ru.  FT.  OF  CUT  panel  PRODUCT 

(INTERNAL)  POUNDS  OF  PROCESS  HOOO  FUEL  FINES  AND  TRIMS 
available  (AFTER  DEDUCTION  OF  THE  nOn«RENEhaBLE  LOSS) 

PER  CUBIC  FOOT  OF  CUT  PANEL  PRODUCT 

(OUTPUT)  POUNDS  OF  OVEN  0R»  hOOO  REQUIRED  PE»  CUBIC 
FOOT  UF  CUT  PANEL  PRODUCT 

(INTERNAL)  GROSS  OVEN  ORT  hEIGhT  OF  PARTICLEBOARD 
OUTPUT  PER  CUBIC  FOOT  OF  CUT  PANEL  PRODUCT  (IN  POUNDS) 

(INTERNAL)  GROSS  POUNDS  OF  FURNISH  (hOOD  PLUS  Ant 
RECTCLEO  TRIhS)  P£R  CUBIC  FOOT  CUT  PANEL  PRODUCT 

(SUB!)  htdROGEN  heat  loss  PERCE'nT  OF  AVAILABLE  HEAT 

iSUBl)  THE  HIGHER  HEATING  VALUE  OF  A hood  OR  Barb  FUEL 
IN  B.T.U.S  PER  POUND 

(INTERNAL)  Integer  option  variable  specifying  the  type  of 

FUEL  BEING  USEOl  OIL,  COAL,  NAT.  GAS  OR  HOOO 

(INPUT)  AN  OPTION  variable  TO  SPECIFY  THE  BIND  OF 
OUTPUT  TO  BE  UELIVERED  IN  COLUHN  ThO  OF  THE  PRINTOUT 

(INPUT)  AN  OPTION  variable  TO  SPECIFY  THE  BIND  OF 
OUTPUT  TO  RE  DELIVEREO  In  COLUHN  Three  OF  THE  PRINTOUT 

(INPUT)  AN  OPTION  variable  TO  specify  hhEThER  OR  NOT 
TRIHS  hill  be  recycled  AS  FURNISH  (OhRECyCLED.  IaTRIhs 
USED  AS  FUEL) 

(INTERNAL)  an  option  variable  TO  CONTROL  THE  TVPE  OF 
AUFIllAPY  FUEL  BEING  USED  (1  FOR  OIL,  2 FOR  NATURAL  GAS) 

(INPUT)  AN  OPTION  variable  TO  CONTROL  The  NU*BER  of 
COPIES  OF  PRINTED  OU’“UT  (1  TO  10) 

(INPUT)  AN  OPTION  variable  to  CONTROL  THE  hIOTh  OF 
THE  PRINTED  OUTPUT  (J  OR  5 COLUHS  OF  DATA) 

(INPUT)  MOISTURE  content  of  THE  MOOD  COMING  OUT  OF  THE 
DRyEO  (»  O.D.) 

t InPuTyUuTOuI  ) The  (IvEn  DRY  hFICmT  OF  Th£  PRESSED  PANELS 
PER  CUBIC  FOOT  OF  PANEL  (IN  POUNDS) 

(OUTPUT)  The  OVEN  DRY  hEIChT  QF  hOOO  AFTER  PRESSING 
IN  A CUBIC  FOOT  OF  PRESSED  PANEL  (IN  POUNDS) 

(INTERNAL)  PRICE  OF  FuFl  PER  EFFECTIVE  B.T.U. 

(INPUT)  PERCENT  L'E  The  PRODUCT  That  IS  CORE  FuRhISH 

(INPUT)  PERCENT  OF  The  product  That  IS  FACE  FURNISH 
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PCOL 


(t»(BuT)  PRICt  UR  COil  I^  PCLLRBS  P€R  TON 


C 
C 
C 

C«  PC  JN, ...  (OUTPUT  ) r-c  PROfir  CO*'TPIbuTION  *S  THF  NET  S»LES  <*Luf 
C*  "IN'JS  ’*'£  v»'t»ecE  COSTS  OF  PRODUCTION  PER  CUBIC  FOOT 

C*  OF  CuT  P4NEL  ““ODuCT 

C« 

C«  PC«*....(UUtPuT)  TPF  PPUFIT  CONTRIhUTIDN  RATIO  (RATIO  Of  Tn£ 

C*  PROFIT  CONTRIBUTION  TO  NF T S*LES  V»CUE) 

c* 

C«  PCT8. . , . ( INPUTaOUTPuT ) VOLONE  RATIO  OF  BARK  TO  *000  IN  ThE 
C*  hOunokOOO  Ra«  NttERlAC  EiPRESSEO  AS  A OECIRAC 

C* 

C*  PCTF  . . . . ( InP|iT«OUTPUT  ) THE  RECOVERABlE  PERCENT  FINES-LOSS  IN 
C«  CUTTING  AND  CHIPPING  OF  RAa  HOOD  (PERCENT  OF  ran  kOOD) 

C« 

C*  PCTR....(SUSl)  PFRCENT  E«CESS  AIR  IN  RFSIOUE  FUEL  COMBUSTION 
C*  (ASSIGNED  A value  of  uOX  8t  The  PROGRAM) 

C« 

C«  PCTT....(uuTPuT)  PERCENT  OF  PARTICLEBOARD  OUTPUT  THAT  IS  CUT 
C«  anav  as  trims 

C* 

C«  PERM....(IntERnal)  a percent  qf  ThE  FInES  GENERATEO  TmAT  IS 
C«  pEhmanENTl*  lost  (N0N-REC0VERA8LE  LOSS-NOT  TO  BE 

C»  confused  nITm  ‘PCTF') 

C‘ 

C«  PF (InTFRNal)  cost  of  EiTERNAL  PURCHASED  FUEL*  EaCLUOING 

C*  AUIILIAR*  FUEL  PER  CU.  FT,  CUT  PANELS 

C« 

C«  PGAS.. ..(INPUT)  price  of  natural  gas  in  dollars  per  MCF 

c* 

C«  POIL....(INPuT)  PRICE  OF  OIL  IR  dollars  PER  BARREL 

f • 

C«  pplG. . . . ( iNPjT ) The  length  OF  THE  CuT  PANEL  PRODUCT  IN  INCHES 

C* 

C»  Pp»0....(InPuT)  the  «IOTh  of  Tm|  CUT  PANEL  PRODUCT  IN  INCHES 

C« 

C*  PR., ....(OUTPUT)  The  PERCENT  OF  THE  OVEN  ORT  PANEL  PRODUCT  THAT 
C«  IS  RESIN,  BY  height 

C» 

C*  PRRC.... (INPUT)  THE  required  RESIN  hEIGhT  PERCENT  OF  CORE  FURNISH 

C« 

r*  PNFF..., (INPUT)  The  REOUIREO  RESIN  height  PERCENT  OF  FACE  FURNISH 

C« 

C*  »IL&....{INPUT)  THE  hIOTh  IN  INCHES  OF  THE  STRIP  OF  TRIMS  CUT 
C«  Ahat  along  The  panel  LENGTH  (AVERAGE  FIGURE) 

C« 

C*  *T«0.... (INPUT)  THE  hIOTh  in  INCHES  OF  THE  STRIP  OF  TRIMS  CUT 
C«  ahav  along  The  PANEL  hIDTH  (AVERAGE  FIGURE) 

C* 

C*  Ph (O(iTPUT)  The  PERCENT  OF  THE  OvEN  DRV  PANEL  PRODUCT  THAT 

C*  IS  mkt,  BY  height 

C* 

C*  P>0D....(InPuT)  price  of  EATERNAL  «000  fuel  in  dollars  per  TON 

c* 

c*  PhPC.... (Input)  the  REOUIPEO  hAI  percent  of  core  furnish 

CA 

C*  RhRF..,, (INPUT)  the  REOUIREC  hA«  PERCENT  OF  FACE  FURNISH 

C* 

C*  P»SR.... (Input)  the  percent  of  green  hOOO  RAh  material  hhICH  is 
C*  LOST  AS  SCREENED  NET  RESIDUES  (N  THE  PROCESS  FROM  THE 

C>  OEBARKER  to  the  DPTER  but  hhICh  HAV  be  recovered  as 

C*  ‘hET  screened'  hood  FUEL 

CA 

Ca  RDhC.... (OUTPUT)  The  COST  OF  >000  RAM  MticsisL  FER  CUBIC  FOOT 

Ca  of  Cut  panel  product 

CA 

Ca  resr. ... (Output ) market  value  op  realieation  for  excess  residues 

CA  (assumes  excess  residues  are  marketed  in  a nix  HITH 

Ca  amounts  of  EACM  RESIDUE  TYPE  PROPORTIONAL  TO  AMOUNTS 

Ca  PRODUCED)  PER  CO.  *1.  CUT  PANEL  PRODUCT 

CA 

Ca  PESV.... (OUTPUT)  MARKET  VALUE  OF  RESIDUE  M|x  PER  SONE*ORVUNIT 
Ca  (4R00  POUNOS) 

Ca 

c#  RK>H....||NPurAOuTPuT)  THE  REQUIRED  K IlOpATT>HOURS  OF  ELECTRICITY 
Ca  per  cubic  FOOT  OF  CUT  PANEL  PRODUCT 

CA 

Ca  SAlE....(INPuTAOUTPur)  the  net  sales  value  of  the  cut  panel 

Ca  product  per  CUBIC  FOOT 


a 


c« 

C«  (INPUT)  ImE  Oven  OVY  SPECIFIC  G»»VHT  OE  THE  B*PK 

C» 

C*  SGSk. . . , ( InPuT»OUTPUT ) The  oven  opt  specific  GMAVITY  OF  THE  xOOO 
C*  «»»  HiTE»I»L 

C* 

C*  SHL (SUHl)  SENSIBLE  H£»T  LOSS  (HE»T  LOSS  OUE  TO  hOISTUPE) 

C*  PERCENT  OF  »v»IL»BlE  hEFT 

C* 

C*  ri (Suai)  TEHPERFTURE  OF  RESIDUE  FUELS  FNO  FURNFCE  AIR 

C*  BEFORE  combustion  In  DEGREES  FiHRENMEIT 

C* 

C*  T2 (SURD  stack  GAS  TEMPERATURE  FOR  COhSUSTION  OF  RESIDUE 

C*  FUELS  IN  DEGREES  FamREnMEIT 

C* 

C*  T9TG.. ..(OUTPUT)  total  FuEL  VALUE  GENERATED,  MILLION  effective 
c»  B.r.u.  PE"  Cubic  foot  of  cut  panel  product 

c« 

C*  Tmtp....(OuTBI)T)  total  fuel  value  REOUIPEO  BY  dryer  and  process 

C*  STEA",  "ILLION  B.T.U.  PEP  CUBIC  FOOT  OF  CUT  PANEL  PRODUCT 

C* 

C*  TCDm.  . ..  (OuTPijl  ) The  0»yER  MEAT  PORTION  OF  MEAT  ENERGY  COST 

c«  PEP  Cubic  foot  of  cut  panel  phoouci 

c« 

C*  ICFR .,..( internal ) TmE  total  cost  of  fuel  per  cubic  foot  of  Cut 
C«  panel  PPQOUCT  (INCLUDES  COST  OF  Au«lLl»*Y  FuED 

c* 

C*  TC«».... (Output)  TmE  total  cost  for  electric  pO"£B  per  cubic 

C«  FOOT  OF  CUT  PANEL  PRODUCT 

c* 

C*  KPS. ...(OUTPUT)  TME  PROCESS  STEA"  SmARE  OF  TOTAL  meat  ENERGY 
C*  COST  P(»  Ci/Mic  FOOT  OF  CUT  PANEL  PRODUCT 

C» 

C*  tCRE....(0"TPUl ) total  cost  OF  RESIN  PER  CuBIC  FOOT  OF  CuT 
C»  PANEL  PRODUCT 

C« 

C*  TC"A.... (OUTPUT)  TOTAL  COST  OF  "Al  PER  CUBIC  FOOT  OF  CUT  PANEL 
C*  PRODUCT 

C« 

C*  Thl (SUBI)  total  MEAT  LOSS  PERCENT  OF  AVAILABLE  HEAT 

C« 

C*  TITL....(INPuTYOurPUT)  AN  ALPHANUMERIC  ARRAY  FOR  THE  PRINTED 
C*  OUTPUT  title  "MICH  MiY  be  SPECIFIED  IN  THE  DATA  DECK 

C" 

C«  TM,t... .(INTERNAL)  POUNDS  OF  TRIMS  GENERATED  PER  CUBIC  FOOT  OF 
C*  CUT  panel  PRODUCT 

C* 

C*  tNvC.... (OUTPUT)  THE  CROSS  VARIABLE  COST  OF  ENERGY  AND  RAM 
C»  materials  for  the  PRODUCTION  PROCESS  PER  CUBIC  FOOT  OF 

Cm  cut  panel  product 

Cm 

CM  TRES... .(OUTPUT)  TOTAL  HEIGHT  OF  RESIN  REQUIRED  IN  POUNDS  PER 
Cm  cubic  foot  OF  CUT  PANEL  PRODUCT 

CM 

Cm  TRMs.,, .(INTERNAL)  SQUARE  INCHES  OF  TRIM  LOSS  PER  PANEL 

Cm 

Cm  THAI, ...(OUTPUT)  TOTAL  HEIGHT  OF  MAX  REQUIRED  IN  FOUNDS  PER 
CM  CUBIC  FOOT  OF  CUT  PANEL  PRODUCT 

CM 

CM  V(I,J).. (OUTPUT)  ThO  dimensional  ARRAY  FOR  STORAGE  OF  OUTPUT 
C*  variables  ANO  CONVERSION  TO  NSF  AND  CUBIC  METER  BASIS 

Cm  basis 

Cm 

Cm  h9«C.... (INPUT)  The  MOISTURE  CONTENT  OF  THE  BARK  (PERCENT 
Cm  Oven  DRV  BASIS) 

Cm 

Cm  hOR (OUTPUT)  height  OF  RESINS  IN  THE  PANELS  (IN  FOUNDS 

CM  PEP  CUBIC  FOOT  OF  PRESSED  PANEL) 

CM 

CM  hOm (OUTPUT)  height  OF  MATER  IN  THE  PANELS  (IN  POUNDS  PER 

CM  CUBIC  FOOT  OF  PRESSED  PANEL) 

Cm 

Cm  MlkO....(SJ»l)  HEIGHT  OF  DRY  FUEL  PER  POUND  OF  GREEN  OR  PET 
CM  mOOO  UN  BARK  Fuel 

Cm 

Cm  mThR.... (INTERNAL)  POUNDS  OF  MET  HOOD  RESIDUES  GENERATED  PER 
CM  CUBIC  FOOT  CUT  PANEL  PRODUCT 

Cm 

Cm  hEIChT  OF  MAX  IN  THE  PANELS  (IN  POUNDS  PER 

CM  CUBIC  FOOT  OF  PRESSED  PANEL) 
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UIHENSIOM  V(B,aO),riTL(*0),P(«) 

PB 

1 

HEF0(B.l ) CCUP.!>GP>i.GPMC>PCTB,i>BMC>SG8P.CPCS.PHPP>PBPCfCPPX>PHRP> 

PB 

2 

lPiilJC.CiOMC,PCTF,»CFF,PCCf  •00t«».F^»C»<*TLG,»T«t),»»S».C0««.CIInH,8T0F, 

PB 

?BTUX,6T»0.BT'»P,>tTi»T,BTI*M,BTPN,»i«»h,»»»0,PPLG.S*Le.P6*S.POIL.Pl»OO, 

PS 

1PC0L>4TuG,BTun.BruM,BTUC<  ITOP.  IOP>  > I0P2,N0Pr,MCC<»<  (Tin  ( 1 ) • lPl<ov 

5 

t 

PnBH»T(6(7(F10)/),«n,li/(20»#)) 

PB 

6 

T(i.n*si(.E 

PB 

7 

VCl.lSliOOHP 

PB 

B 

y ( 1 , iaiaHMHH 

PB 

♦ 

c 

wtTEP  XT.  IN  CU.  FT.  PRESSED  PFNEL  (H.C.  BASED  ON  O.D.  nT.) 

PB 

IS 

•OxiOOxPxFPMC 

PB 

II 

V 1 1 > I2)a«0x 

PB 

12 

c 

RESIN  »T.  IN  C'J.  FT.  PRESSED  P*nEl»E»CLUOINC  RECtCLEO  TRJNS  RESIN 

PB 

IS 

•OKiODxP* ( (PCFF*P4BF)*(PCCF«PRRC)) 

PB 

l« 

y ( I > luliitOR 

PB 

15 

c 

>t«  >T.  IN  CU.  FT.  PRESSED  PANEL'ElCLuOINC  RECTCLEO  TRINS  mkt 

PS 

1* 

(■pXOOxP*!  (PCFF*PnRF  )*(PCCF*PxRC) ) 

PB 

IT 

y ( 1 « 1 S )sHxx 

PB 

IB 

c 

• • • 

O.D.  xt.  OF  WOOD  (OR  'FURNISH'  IF  TRIMS  RECYCLED)  IN  CU,  FT.  PANELPS 

IB 

PB 

20 

V(l,l7)t00»»- 

PB 

21 

c 

• •• 

•T.  Of  PANELS  ISCLUUIN6  «0 I S TURI /CU . PT, 

PS 

22 

GbotxOONP  ♦nOn 

PB 

2} 

V ( 1 . 1 1 )sGb>» 

PB 

2« 

c 

PCSIN  B.eiGHT  PEPCEST  Of  ruPNl3M,N4x  anO  AESIN  IH  0.0,  PANCL 

PB 

2S 

PPx«0P/00mP 

PB 

20 

c 

kA<  xEICht  PERCENT  OF  Furnish, XA«  tNO  RESIN  IN  0.0.  panel 

PB 

2T 

PkXKlX/OOxP 

PB 

20 

c 

• •• 

SQUARE  Inch  OF  TRIM  LOSS  PER  PANEL 

PB 

2« 

TRhSa( (PTlGaPPLS )»(PT«Oa(PPmO*(B.O*pTLG))I)a2.0 

PB 

SO 

c 

• • • 

finished  panel  SUE  IN  SO.  IN. 

PB 

SI 

FPSZ*PPLGAPP»0 

PB 

S2 

c 

• •• 

PERlEnt  of  gross  output  that  is  trims 

PB 

ss 

PrTT»TRMS/(FPSE»TRMS) 

PB 

s« 

c 

• • • 

0.0.  «T.  OF  GROSS  Output  per  cii.  ft.  trimmed  finished  panels 

PS 

SB 

C»CO»00*P«(1.0/( l.O-PCTT)) 

PB 

SO 

c 

• • • 

•EIGHT  OF  FACE  RESINS  REQUIRED  PER  CU.  FT.  CUT  PANELS 

PB 

ST 

FacR>G«00*ppRF*pcff 

PB 

SB 

c 

• •• 

•eight  of  core  RESINS  REQUIRED  PEP  CU.  FT.  OF  CUT  PANELS 

PB 

39 

C0RR»G«00«PRRC*PCCF 

PB 

RO 

c 

* • • 

•FIGHT  OF  F»CE  "Af  required  per  Cu.  FT.  OF  CUT  PANEL  PRODUCT 

PB 

41 

FACR*GNno*P"RF«PCFF 

PB 

42 

c 

«•* 

•EIGHT  OF  CORE  »A«  required  PER  CU.  FT.  OF  CUT  PANEL  PRODUCT 

PB 

R5 

CCRhaGhO^PRRC^PCCF 

PB 

44 

c 

* • • 

total  hT.  of  resin  requireo/cu.  ft.  cut  panels 

PB 

4S 

treSsFaCB*CORB 

PB 

40 

v(l,2n*TRES 

PB 

4T 

c 

• • • 

total  *I.  of  .a*  fitwUIBEO/CU.  FT.  CUT  PANELS 

PB 

4B 

I»axiF»c«*COR" 

PB 

49 

y(l,22)ATRA> 

PB 

BO 

c 

• •• 

total  cost  of  RESIN/CU.  ft.  Cut  panels 

PB 

Bl 

TCREpTRESaCRES 

PB 

B2 

y(l,}|«TCR£ 

PB 

BS 

c 

total  cost  of  haa/CU.  ft.  cut  panels 

PB 

54 

TCiOpTfAOChAA 

PB 

55 

V(1.R)aTCn> 

PB 

5*  4 

c 

• •• 

GROSS  LBS.  OF  FURNISH  NEEOED/CU.  FI,  CUT  PANEL 

PS 

5T  ' 

G^TFs(G«oo>( T«AA*treS) ) 

PB 

50 

c 

*•* 

CROSS  0.0,  LRS,  OF  ROOD  NEEOEO  IF  TRIMS  ARE  NOT  RECYCLED 

PB 

59 

IFdTOP  .EQ.  1)  G«tJOP(C«TF»(l. 0/(1. 0-PCTF)))a(1. 0/(1, O-PmSR)) 

PB 

OO 

c 

• • * 

lbs,  of  trims  GENEPATEO/CU.  FT,  CUT  PANELS 

PB 

61 

TmnTfQhOOaPCTT 

PB 

62 

c 

cross  U.O.  lbs.  of  hood  NEEOEO  IF  TRIMS  ARE  RECYCLED 

PB 

6S 

IFdlOP  .EU.  0)  C«OOi(C»TF-(0.5»TM»I))Ad.O/d.O-PCTF))Ad.O/(1.0 

-PB 

04 

IP»SH) 1 

PB 

65 

yd.lSXCHOO 

PB 

66 

c 

• •• 

GROSS  LBS.  OF  GREEN  hOOD  nEEDED/CU.  FT,  CUT  PANELS 

PB 

6T 

G«"O*i;rO0a(  1 .'')♦GRMC) 

PB 

6B 

Vd,l9)*GRR0 

PB 

69 

c 

• •• 

cu,  FT,  OF  rounomooo  neeof.o/cu,  ft.  Cut  panels 

PB 

TO 

CFRH«C»00Ad.0/(62.RASGRM) ) 

PB 

TI 

y(t.20)ACFH> 

PB 

T2 

c 

• •• 

L"S.  of  generated  dry  fuel  fines  and  TRINS/CU.  ft,  cut  panels 

PS 

TS 

IFdTOP  .EQ.  01  GRFF«((G»TF.(O.SATMNT))Ad.O/d.O-PCTF)))-(GPTF-(OPS 

T4 

I.SaImmTDaO.SaTmnT 

PB 

TS 

IFdTOP  .EQ.  1)  GRFFi(C»IF«d.O/d.O-PCTF))-C»IF)tTM«T 

PB 

T6 

c 

• •• 

pERhsThE  nOn-REnEaABlE  fines  LOSS  PERCENT  (PERMANENTLY  LOST) 

PB 

TT 

PERHiO.OJ 

PB 

TS  A 

c 

• • * 

LPS  OF  generated  OMY  mood  FUELS  MINUS  ThE  NON'RENEmABLE  LOSS 

PB 

TO 

GR*FsgRFF«(GRFFaPEPh) 

PB 

BO 

19 


c •• 


c • 
c • 


c • 
c • 


c • 
c • 


c • 


c * 


c • 
c • 


s.l.u.  y*LOt  Of  0»IED  «000  fUELS/CU.  FT.  CUT  PfOCUS 
C»LL  SUBl  (■iTijF  ,00-C,EB0f  ) 
nl vf iGUnF • ( I .0»00“C ) ‘EBOF 
k(l,29)aBTVF 

POUNDS  OF  afT  screened  •<000  RESIDUE  FoEL  (FROM  OEBFRfER) 
■>T>R<CRoU«*'>iSR 

B.T.u,  v»Luf  OF  <ET  SCREENED  »000  RESIOUE/CU.  FT.  CUT  P4NEL 
C»LL  SUBI  ("iTuF.GRNC.EHNR) 

8T«Rt»Ti»R«Et*»R 

TCT*L  e,T.u.»*LJE  OF  GENERATED  nOOO  FoELS 
BTFBsRTVF ♦BTkR 

B.T.U.  VALUE  OF  baRh/CU.  ft.  cut  panels 
call  SUBUBTuR.kBhC.ERTB) 

HTBNzPCTH^CSGaN/SORwJtGHHOoEBrB 
VCl.iOlzBTBA 

total  fuel  value  GENERATEO/CU.  ft.  CUT  PANELS 
TPTCaBTFRtBTSK 

aEIGHTEO  AVERAGE  EFFECTIVE  B.T.u,  PER  POUND  OF  RESIDUE  NI« 
AeiRarBTC/(GRkF*i»THaAPCTB*GRaD*(SGBa/SGRM)  ) 
vd.i'JaTBTG 

Fuel  value  ivfuuiRfo  hv  drver/cu.  ft.  lut  panels 
ONVNa(G«OU*GRMC>GaUO*ODHC I *BTRD 

V ( 1 •25)aDPVH 

total  Fuel  value  required.  DRTER  and  PROC.  STEAH/CU.  ft.  panels 

TBTRaDRVH*BTRPvBTRT*BTRH*BTRM 
V(l.2«)aTBTR 

AUAF  IS  The  AVC.  percent  of  generated  B.T.u. 'S  that  must  come 

FROM  AUalLIAHY  OIL  fuel  FOR  B.T.U.'S  GENERATED  MITH  HOOD  FUELS 
AUlFao.lS 

c •••  NET  eeternal  fuel  B.T.u.  reouired/cu.  ft.  cut  panel 

FR0NaTBTfl>(TBTG*O  .0/(t.0>AUXF))) 

IF  (F40N  .LE.  0.0)  FRONbO.O 

v(l.}2)aFRQN 

TCFHaO.O 

TCPSaO.O 

TCOHao.O 

FUELaO.O 

IF(FR0N  .LE.  0.0)  IFOPa* 

PFaO.O 

CALL  SUB2(BTUO.EBTO,0) 

CALL  SUB2(BTUC.EBTC.l) 

CALL  SUM2(8TUG.EBTG.2) 
call  SUR2(MTUN,ERTi.,  J) 

P(l)aPOIL*(E»TO><-I.U) 

P(2)aPC0L»<E'»TC»a-1.0) 

P())aPCAS*(EBTGaa*I.O) 

P(«)aPkOD*(l.O>AUlF)a(EBTHa*-I,0)A(POILPAUXFa(EBTOP**I.O)) 

C •••  FIND  TME  CHEAPEST  AUXILIARY  FUEL  (OIL  OR  NAT,  GAS) 

IF(P(l)  .LT.  P(i))  NAXFal 
IF(P(})  ,lT.  P(l))  NAXFal 
IFCIFOP  .EO.  «)  GO  TO  40 

find  The  CHEAPEST  EXTERNAL  FUEL)  OIL.  COAL,  CAS,  OR  aOOO  PER  BTU 
IFOPaO 
xsIFOPyI 
DO  10  Ia2,« 

IF(P(I)  ,lT.  PIN))  *al 
CONTINUE 
IFOPa(K«l ) 

total  cost  of  External  fuel  per  cu.  ft.  cut  panel 

PFaP(N)*FH0N 

c •••  calculate  units  of  external  fuel  REOUIREO.  BBL.  OIL.  hCF.  NAT. 

C t>a  GAS.  tons  coal  OR  TONS  MOOD  (EXCLl'OING  AUXILIARY  OIL) 

IFdFOP  ,tO.  0)  FuELaFRONa(ESTO***I.O) 

IFdFUP  .EQ.  1)  FijELaFRQNa(EBTCaa*l.O) 

IFdFOP  .EO.  2)  FUELBFRONa(EBTGPP>I.O) 

IFdFOP  ,EU.  1)  FUELa(FPON«(AUXFaFRON))a(EBTMaA>t.O) 

■EI6HTE0  AVERAGE  COST  PER  MILLION  EFFECTIVE  S.T.U.  OF  FUEL 
IFdFuP  .EU.  0)  CORTaPd  )*dFRON/TSTR)F((TBTR>FRaN)/TBTR)aAUXF) 
IFdFOP  .EO.  ))  C0BTaP(2)adFR0N/TBIR)F((T8fR«FR0N)/TeTR)aAUXF) 
IFCIFQP  .EO,  2)  C0BTaP(lla((FRQN/TBTR)*((T8TR>FRaN)FTBTR)aAUXF) 
IFdFOP  .EQ.  1)  C08TBP(a)*FR0N/TBTR«Pd)adTBTR«FReN)/TBTR)aAUXF 
RESRao.O 
Continue 
Yd  .IDaFuEL 

calculate  auxiliary  Fuel  needed  (auxii  pe*  co,  ft.  cut  panel 
UNITS  OF  auxiliary  fuel  required  rc  8UFN  residues 
IFINAiF  .EQ.  I)  AUiIa(AUlF/d.0>AuXF))aTST6*(EaT0a*>l.0) 

IFINAxF  .EQ.  1)  AUIIa(AuXF/(I.0*AuXF))aTBTCa(EBT6a*«1.0) 

c •••  auxiliary  Fuel  required  if  only  mood  fuel  (Incl.  residues)  is  use 

IFIIFllP  .GC.  1 .ANO,  NAXF  .EO.  I)  AUXIaAUXF*TBTRa(ESTO**>l.O) 


C aaa 


to 
C ••• 


C •PA 


an 


C ••a 
C ••• 


P8 

SI 

PB 

B2 

PB 

8) 

PB 

6« 

PB 

SS 

P8 

86 

PS 

ST 

P8 

SB 

PB 

S« 

PB 

«0 

PB 

Ql 

PB 

92 

PB 

91 

PB 

9a 

PB 

95 

PB 

96 

PB 

97 

PB 

98 

PB 

99 

PB 

too 

PB 

101 

PB 

102 

PB 

101 

PB 

loa 

PB 

105 

PB 

106 

PB 

107 

PB 

lOS 

PB 

109 

PB 

110 

PB 

111 

PB 

112 

PB 

111 

PB 

lia 

PB 

115 

PB 

116 

PB 

117 

PB 

IIB 

PB 

119 

PB 

120 

PB 

121 

PB 

122 

PB 

121 

PB 

120 

PB 

125 

PB 

126 

PS 

127 

PB 

120 

PB 

129 

PB 

110 

PB 

111 

PB 

112 

PS 

111 

PS 

ISO 

PB 

IIS 

PB 

116 

PB 

117 

PB 

tlB 

PB 

119 

PB 

160 

PB 

101 

PB 

102 

PB 

101 

PB 

100 

PB 

105 

PS 

146 

PB 

107 

PB 

108 

PB 

109 

PB 

150 

PB 

151 

PB 

152 

PB 

151 

PB 

150 

PS 

155 

PB 

156 

PB 

157 

PB 

ISB 

>PB 

159 

PB 

160 

-20- 


L 


J 


IFCIFUO  .G£.  S .AMO.  Niif  .EQ.  })  /kUXI«AUxr*TaTR*(£BTG***l,0> 

PB 

161 

« ( 1 > }$)stUXI 

PB 

162 

c 

• •• 

8.T.U.S  SUPPLIED  Hr  iUXlLUHV  FUEL  PEP  CU,  FT.  CUT  P4NCL 

PB 

163 

1F(N*<F  .EO.  1)  8>UxiFUX1*EBT0 

PB 

16ft 

IF(N*(F  .EQ.  })  8xuXHXUXI*EaTG 

PB 

165 

r(I.S7)i8>UX 

PB 

166 

c 

• •• 

£‘LCUL»tE  COST  OF  4UXILUPV  FUEL  PEP  CO.  FT,  CUT  PFHEL 

PB 

167 

IF (NXIF  ,E0,  n CxuXxAUXitPOIL 

PB 

16S 

1F(nA<F  ,L0.  ))  CXUiaiUXlAPGiS 

PB 

169 

c 

• •• 

total  cost  of  PuPChaSEO  fuel  pep  CU.  FT.  CUT  PANEL 

PB 

170 

TCF»aC4u«tP^ 

PB 

171 

TCOHt (ORVH/TBrR)«TCFR 

PB 

172 

TCP8«rcFR*rcoH 

PB 

17) 

IFdFOP  .~E.  a)  GO  TO  50 

PB 

176 

c 

RESIDUE  PFAlIZATION  IF  EXCESS  RESIDUES  APE  AVAILABLE 

PB 

175 

Pt5P»(TBIP»( 1.0-AuxF)-T»TG)»(A8TP**»1.0)aCORH 

PB 

176 

c 

• • • 

aFIGHTED  average  COST  PEP  B.T.U. 

PB 

177 

IFISAXF  .EG.  n CnBT«POIL*(EBTO*«-l,0)*AUXF 

PB 

178 

IFCNAXF  .eg.  3J  COBTaPGASa(EBTGaa-i .OIaauxF 

PB 

179 

continue 

PB 

ISO 

c 

• •• 

FaCTiaPPROX.  pounds  per  bone  DRV  UNIT  OF  PROCESS  RESIDUES 

PB 

IBI 

FaCTpEROO.O 

PB 

1S2 

c 

* • « 

resvpvalue  of  process  RESIOUES/BOU 

PB 

IB) 

PESV«CCR*4*F4CT 

PB 

18ft 

c 

**« 

COST  OF  POUNOxOOO/CO.  ft.  CUT  PANELS 

PB 

185 

90«iC«CFRm*CCUF 

PB 

1B6 

V( 1 ,E)«R0nC 

PB 

187 

c 

COST  OF  Electricity 

FB 

IBB 

TCkmsRhnh*Ck«im 

PB 

189 

c 

• • • 

total  net  variable  COST/CU.  ft.  CUT  PANELS 

PB 

190 

TnvC»RO»C»TCRE*TChx*TCK»»TCPSaRESR*TCOH 

PB 

191 

c 

PROFIT  COMTPIBUTION  AnO  PATIO  TO  3*LE5  VALUE 

PB 

192 

PC0N*S4LF.-TNVC 

PB 

19) 

PCPA»PC0S/3ALE 

PB 

16ft 

v(1,5)*TCka 

PB 

195 

v(if6)«rcoH 

PB 

196 

v(1,7)*TCPS 

PB 

197 

V ( t »d)«PESP 

PB 

198 

V ( 1 ,B)«TNVC 

PB 

199 

V(1,10)»PC0N 

PB 

200 

v(i«?tt)sHrpp 

PB 

201 

V ( 1 .^SIsBTPT 

PB 

202 

V ( 1 ,2P)aBTRM 

PB 

20) 

V(1,27J*BTRM 

PB 

206 

Vd.SBIaBTxB 

PB 

205 

IFdTOP  .EQ.  0)  PCTTaO.SaPCTT 

PB 

206 

c 

• •• 

PB 

207 

r 

analysis  of  sensitivity  of  NET  VARIABLE  COST  TO  THE  COST,  ON  AN 

PB 

20B 

c 

• • • 

INPUT  BASIS,  OF  roundaOod,  resin,  aax.  electric  poher,  and  fuel 

PB 

209 

c 

• •• 

PB 

210 

c 

«•« 

sensitivity  Til  ROUNOaOOO  COST  (ROUNUhOOD  COST/CU.  ft.  a X I 

PB 

211 

c 

• ** 

T»VC  a (CFRa)*(CCUF ) r (TNVC  - RD»C)  (Ya4««48) 

PB 

212 

Al«CFPt« 

PB 

21) 

8t«TNVC«P0»C 

PB 

21« 

c 

sensitivity  10  PESlN  COST  (RESIN  COST/LB.  a X ) 

PB 

215 

c 

• •• 

TNVC  a (TRES)»(CRES)  ♦ (TNVC  • TCREJ  (YaAal+B) 

PB 

216 

A2aTPES 

PB 

217 

BZatNVC-TCRE 

PB 

218 

c 

• •• 

SENSITIVITY  TO  WAX  COST  (RAX  COST/LB.  • X ) 

PB 

219 

c 

PB 

220 

A3«n»AX 

PB 

221 

Bi«TNVC«TC«<X 

PB 

222 

c 

SENSITIVITY  TO  ELECTRIC  POMER  COST  (COST/BNH  a X ) 

PB 

22) 

c 

*** 

PB 

226 

AHaRNRH 

PB 

225 

B4«TNVC-TCKn 

PB 

226 

c 

SENSITIVITY  TO  FUEL  COST  (PRICE  OF  FUEL/RUEL  UNIT  R X ) 

PB 

227 

IFdFOP  .EO.  0)  BSatNVC-FUELAPOlL 

PB 

22B 

IFdFOP  .EO.  1)  85aTNVC-FUEL*PC0L 

PB 

229 

IFdFOP  .EO.  2)  BSaTNVC-FUELAPGAS 

PB 

2)0 

IFdFOP  .£0.  I)  BSaTNvC-FUELAPNOO 

PB 

2)1 

ASaFUEL 

PB 

2)2 

ARaAUXI 

PB 

2)) 

B6sTNyC*CAUX 

PB 

2)6 

IFdFOP  .EO.  0 .OR.  IFOP  ,E0,  «)  ASaASaAB 

PB 

2)5 

IFdFOP  .EO.  0 .OR.  IFOP  ,E0.  2)  BSaBS'CAUX 

PB 

2)6 

c 

• •• 

PB 

2)7 

c 

• •• 

uetehnine  output  variables 

PB 

2)B 

c 

• •• 

PB 

2)9 

DO  60  Hal,S7 

PB 

260 

21 


r 


IF 

(lORl 

.EO. 

61 

v(2.P)>3l.25*V(l.P) 

PB 

241 

IF 

(lOPl 

.EQ. 

1} 

v(2.m)>20.S33333*v(1.p) 

. FB 

242 

JF 

(lOPl 

.EO. 

2) 

V(2.P1»62.5*V(1.P1 

PB 

243 

IF 

(lOPl 

.EO. 

3) 

v(2.Pl»52.08333»vtl.P) 

PB 

244 

|F 

(lORl 

.EO. 

U) 

V(2.H)««1.666T*V(1.P) 

PB 

245 

IF 

tIPP2 

.EQ. 

0) 

V(3.“)»«1.666T«V(1,P) 

PB 

246 

IF 

(10R2 

.EO. 

1 ) 

v(3.p|<20.S35333*V(1,m) 

PB 

24T 

IF 

(10P2 

.EO. 

2) 

« ( 3.M)<62.5«V ( 1 .P) 

PB 

248 

IF 

(10P2 

.CO. 

31 

.(3.P)»52.06335»V(1.») 

PB 

249 

IF 

(IOP2 

.EQ. 

«) 

V(3.M>«35.31*V(1,P) 

PB 

250 

IF 

(NOPT 

.EO. 

3) 

GO  TO  60 

PB 

251 

,“)»52 

.OA333* 

V(1,P) 

PB 

252 

V(S 

,P)»39 

.31*V(1 

.P) 

PB 

253 

60 

continue 

PB 

254 

IF  (PORT  ,NE.  3)  J»5 

PB 

255 

IF  (nopT  .EQ.  31  J»3 

PB 

256 

RR>ldO.O*PR 

PB 

25T 

P«»10O.0»Pp 

PB 

25B 

fppcrioo.o»fppc 

PB 

259 

pCH<4100.0*PCR4 

PB 

260 

PC1F*100.0«PCTF 

PB 

261 

RCTTilOO.OaPCTT 

PB 

262 

00  998  a *1.10 

PB 

263 

1F(«  .UE.  (NCOP.in  GO  TO  999 

PB 

264 

IF(nOP|  .nE.  1)  pRITEIO.TO)  (TlTL(n.I»1.60) 

PB 

265 

TO 

FORPATCl  ',lt25a,20»4/)///) 

PB 

266 

1F(N0PT  .EQ.  3)  nRITE(6.B0)  ( T I TL ( I ) . I« 1 .60 ) 

PB 

26T 

ao 

FORMAT! '1 '.3(20A4/)///) 

PB 

268 

pRITE(6.90) 

PB 

269 

<90 

FORMAT!'  '.12X. 'S/CO. FT.') 

PB 

270 

IFdOPl  .EQ.  0)  pRITE(6.100) 

PB 

271 

100 

FaRMAT('4'.44a. 'S/mSF  3/B  In.  BASIS') 

PB 

272 

IFCIOPl  .EO.  1)  pRITE(6.110) 

PB 

273 

110 

F0RMAT('4',44X, 'S/PSF  1/4  IN.  BASIS') 

PB 

274 

IFCIOPl  .EU.  2)  nHITE(6.120) 

PB 

275 

1^0 

F0RPAT('«'.44X. 'S/PSF  3/4  IN.  BASIS') 

PB 

276 

IFCIOPl  .EQ.  3)  PRITEC6.130) 

PB 

277 

150 

FORHATI '♦'.44a, 'S/MSF  5/8  In.  BASIS') 

PB 

276 

IFCIOPl  .EO.  4)  MRITEC6,140) 

PB 

279 

IttO 

FORMAT C '♦' ,44X. 'S/MSF  1/2  In.  BASIS') 

PB 

2B0 

IFCIOP2  .EQ.  0)  HRITEC6,150) 

PB 

2B1 

ISO 

format C '♦' ,66*. ' 1/2  IN.  BASIS') 

PB 

2S2 

IFCIOP2  .EQ.  1)  MRITEI6,160) 

PB 

283 

160 

FOPPA7C ' ♦' .66*. ' 1/4  IN.  BASIS') 

PB 

264 

IFII0P2  .EQ.  2)  PRITEI6,1T0) 

PB 

285 

1 TO 

FORMAT! '♦■ ,66a, ' 3/4  IN.  BASIS') 

PB 

2B6 

IFII0P2  .EQ.  3)  pRITEI6,180) 

PB 

2B7 

lao 

FORMATI '♦',66*, '5/8  IN,  BASIS') 

PB 

28B 

IF!I0P2  .EO.  4)  m9ITE!6,140) 

PB 

289 

190 

FORMAT!'.', 66*. 'S/CUBIC  METER') 

PB 

290 

IFcnOPT  .EQ.  0)  PRITECB.EOO)  I V ! 1 , 1 ) , I » 1 ,5) 

PB 

291 

200 

FORMAT! '♦' ,84*. '5/8  IN.  BASIS'. 5X,'S/CU. METER'/ 

PB 

292 

1'  NET  sales  v*LUE'.1TX.'S',FT.4,Tx.3!'S'.F9.I.8X),'S'.F9.I/) 

PB 

293 

IF!N0PT  .EJ.  3)  "RITEI6.210)  I V ! 1 , 1 ) . I * 1 . 3) 

PB 

294 

210 

FORMATI'  NET  sales  VALUE'.1TX.'S'.FT.4.TX,'S'.F9,3.8X.'S'. 

PB 

295 

1F9.3/) 

PB 

296 

MMITEC6.220) 

PB 

297 

220  fOHM»T(*  viRUeifc  COSTS  Or  PPODUCTION') 

ircNOPT  .to.  0)  »»iTE(6,2jo)  ccur, 
l(»(I,?).I*t,5),PP,C«tS,(V(I, 

l,PH,Cairi.(T(I,tt),ls|,S),CKNH,  (V(I.S),I«1,S).C0BT,(V(|,6>.I>1.S), 
i>CCtBT,lv(I,7),I»t,S),PESV,(v(l,S),Isl,5),  (T(I,9),I»l,S). 
)(V(I.lu).l:|,S).PCRr 


PB 

PB 

PB 

PB 

PB 

PB 


I»(NOPT  .to.  })  »PITE(6,Jao)  (V(I,2).I*1.3).PP.CPES,(y(l,}).IP|,3)PB 
l.Pu.Cxti, (v(I>«).I«I>3)>CKMH,(V(I,S).ls|.3).C0BT.(V(I,6),Ist,3)>  PB 
2C0BT.(«(I,7),Isl.3).PESV.(V(I,e).Iil.3),(V(I,«),l«l,3).  PB 

3(V(I.I0).I*1.3>,PCP*  PB 

250  roPMiTt*  ',2»,'>.0O0  <»',rt.a,'/cu.  FT.) ' ,8*.  , PB 

IF7.a,7«,3('»’.F9.3,««),'$',F9.3/  PB 

13«, 'RESIN  C.Fa.l.'X,  1',F«.2,'/lP.)',7x,F7.((,8».3(F9.3.9«),F9.3/  PB 
23<.'a>i  C.Fa.l.'t,  « ' >F«.2,  • /(.B  . ) ' .9a  .FT , B<  , 3 (F9. 3.9X  ) ,F9.3/  PB 
331. 'ELtCTRIC  PO-tP  (3'.FS.3. ’/FDH)  •,<ia.F7.«.BX.3(F9.3.9«).F9.3/  PB 
93  a,  'ORTF.R  ME*T  tFuEL»S'.F5.3.  '/HP  BTu)  • . 1 a .F  7 .9 , SX.  3 (F9 .3. 9x  ) .F9 . 3/PB 
53a.  ■PPOC.ST£***fFutL»l'.F5.3.  '/PP  BTU) ' . 1 X,F7.«,8X  . 3 f F9.3.9X  ) .F9. 3/PB 
o3a,'LESS  RESIOUE  * »L . ( S ’ .F6.2, ' /BOU ) ' . 1 a .FT. «.8x . 3 (F9.3,9x ) .F9. 3/  PB 
7Tl. 'GROSS  V*Mt»BLE  r0ST',Tx.'$',FT.«,Tx.3('S'.F9.3.8a).'$'.F9.3//  PB 
I"  BSOFIt  contribution'. 13a, FT. «.Ta,5('»'.F9. 3. 8X). 'S'. F9. 3/  PB 
C.  9»TI0'.20a.Fa.i,'x',/)  PB 

2a0  F.iRPlTt'  ' .2a  . 'aOOC  .2*a, '$•  ,FT.<i,7a  . ' I' .F9.3.8X. 'S' .F9.3/  PB 

I3a. 'RESIN  C.Fa.i.'s,  S ' .F  « .2. ' /LB. ) ' . Tx  .F  T .« .8a  .F9. 3.9x  .F9 . 3/  PB 


298 

299 
299A 

300 

301 

302 

303 
309 

305 

306 
SOT 

30TA 

308 

309 

310 

311 

312 

313 
31« 

315 

316 
31T 
31B 


f 
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I 

) 


15<. 'FLeCIBIC  PO«tB  (l'.F5.1,'/Ki«M)',ii«,F7.a,*ii,F9.J,9X,P9.i/  P8  520 

53«, 'P-OC.SreiMCFuFLsi'.F^.l, ’/mh  8IU)*.II.F7.».»«,F9.5,9*,F9.5/  PB  321 

SSJ.'OP’rtP  mE»TIFuEL»1’.F5.3. '/NN  BTU ) • , 1 « ,F  7 . u ,BX  ,F9. 5,9*  ,F9.i/  PB  522 

65», 'less  PESIOUE  v*L.(S*,F6.2,'/e0U)',lX,F7.«,8«,F9.5,9*,F9.5/  PB  525 

7T»,'GOOSS  X»»I»BLE  C0ST,7X,'5>,f7.a,7*,'i',F9.5,8X,'l',F9.5//  PB  529 

8*  PB0FI7  CONr9IRUTIOI»'.13X,'S',F7.a,7X,'S',F9,3,8X,<5',F9.5/  PB  525 

95*. 'P.  C.  B»TIO'.20x,F<»,l,'X'./)  PB  529 

•bITE(9,250)  PB  127 

2S0  Fn»N»T('  SENSUIVITr  OF  GROSS  VXHIXBlE  cost  per  CU,  FT.  OF  FINIShEPB  528 

10  PRODUCT  OUTPUT'/)  PB  529 

«bITE(9,270)  9l,Bt,92,B2,i5,B5,i4,Bik  PB  150 

270  FORM*I(i  ',8X,'X»»,  C08T/CU.  FT,  p',F7,«,'  * (POOO  COST/CU,  FT.)  ^PB  551 

I'.FT.tt/  3JJ 

29X,'V*R.  COST/CU,  ft.  «',F7.u.'  • (BESIH  COST/LB.)  ♦ ',F7.«/  PB  555 

39*. 'V*!*.  COST/CU.  FT.  «',F7.«,'  * (xXX  COST/lB.)  ♦ ',F7.«/  PB  559 

«9X,'V»S.  COST/CU.  FT.  I'.FT.a,'  < (ELECTRICITY  COST/kph)  ♦ ',F7.a)P8  555 

IFIIFOP  .EO.  0)  »»ITE(6,271)  *5,85  PB  159 

IFCIFOP  .£u.  1)  »RITE(9,272)  »5,B5  PB  537 

IF(IF0P  .ED.  2)  »«ITC19,275)  »5,BS  PB  158 

IFCIFOP  .EG.  3)  PBlTE(9,27a)  *5,85  PB  539 

IFtlFPP  .EQ.  0 .OR.  IFOP  .EQ.  2)  SO  TO  275  PB  590 

IFCN*xF  .EQ.  1)  pRITE  (9,271)  *6,89  PB  5*1 

IF(n*xF  .EO.  3)  pR1TE(6,273)  *6,B9  PB  3*2 

275  CONTINUE  PB  511} 

271  FORMATC  ',8*,'V*R.  COST/CU.  FT.  s', FT.*,'  # (PRICE  OF  OIL/8BL.)  TPB  5«« 

1 ',F7,a)  PB  j4|5 

272  FORMATC  •,«x,'v*«,  COST/CU.  FT.  s', FT.*,'  • (PRICE  OF  CO*L/TON)  pPB  5*9 

1 '•F7.a)  PB  5*7 

275  FORPATC  •,RX,'V*R.  COST/CU.  FT.  si,F7.«,'  * (PRICE  OF  NAT,  CAS/MCPB  1*8 

IF)  ♦ ',F7,4)  PB  3*9 

27*  FORp*T('  ',6*,'v*R.  COST/CU.  FT.  s', FT.*,'  » (PRICE  OF  FUELPOOO/TOPB  350 
IN)  * •,F7.a)  PB  551 

pRITE(6,280)  PB  552 

280  F0RP*T( 'oeOARO  STiTISTICS' , 13X, 'lRS./CU.FT. •)  PB  553 

IFdOP)  .EQ.  0)  pRITE(9,290)  PB  55* 

290  FORMAT ('*• ,*3i, 'LftS./MSF  3/8  IN. BASIS')  PB  555 

IFCIOPI  .EQ.  1)  pPtTL(9,500)  PB  359 

300  FORMAT (•♦' ,*3*, 'lbs. /PSF  l/«  IN.BASIS'T  PB  157 

IFCIOPI  .EQ.  2)  pRITE(9.310)  PB  358 

110  FORmaT('*',*3*, 'LBS./mSF  5/*  IN. BASIS')  PB  559 

IFCIOPI  .EQ.  3)  MHirE(6,320)  PB  390 

120  F0RM*I('*i,u3x, 'LBS./mSF  5/8  IN. BASIS')  PB  391 

1»(10P1  .EQ.  *7  »RITE(9.350)  PB  392 

330  FORMAT! '♦' ,*3*, 'lbs. /MSF  1/2  IN. BASIS')  PB  395 

IF(I0P2  .EO.  0)  *RnE19,150)  PB  59* 

IF(10P2  .EQ.  I)  mRITE(9,160)  PB  595 

IF(IOP2  .EQ.  2)  "«ITE(9,170)  PB  599 

1F(I0P2  .EQ.  5)  mRITE(9,180)  PB  597 

IF(IDP2  .EU.  *)  >RITE(9,3*0)  PB  398 

3*0  format (•♦• ,671 , 'lbs. /CU. METER' ) PB  599 

IF(N0PT  .EJ.  0)  MR1TE(9,550)  PB  570 

550  FORMAT! '♦• ,8**, *5/8  In.  BAS  IS ' .5x , 'LBS . /CU.mETER ' ) PB  571 

IFCNOPT  .£«.  0)  mRIIE(9,5bO)  (V(I,ll),I*l,5),FPMC,(v(I,12),Isl,5),P8  572 

l(V(I,13).Isl,5).PR,(V(I,l*).Is|,5).P«,(v(t,15),Isl,5),  PB  575 

2(V(I,17),IS1,5)  PB  57* 

IFINOPI  .EO.  5)  *RITE(9.370)  ( V ( 1 , 1 1 ) , 1*1 , 3 ) ,FPHC , ( V ( I , 12) , I* 1 , 3 ) ,PB  375 

1(Y(1,15),1«1,3).PR,(V(I,1#),I*1,5),P»,(V(I,15),I*1,3),  PB  379 

2(V(I, 17). 1*1,3)  PB  577 

390  format  ('  ',2i,<GHOSS  dOARO  •<EICHT'.12X,FB.3.8X,5(F9.3>9X),F9.5/  PB  37B 

15»,'»EIGmT  of  maTERC.F*.),'*  m.c.  ) ' .5X,F8.3.8X,3(F9.5,9X)  ,F9.3/  PB  379 

23>.'OVEN  DRY  aGT.  OF  BOARO ' . 8x ,F8. 3, «X , 5(F9.5,9X ) ,F9 .5/  PB  180 

3S*,'»f.T.  OF  RESINSC.F*.!,'*  S0LIPS)',F8.5,8*,5(F9.3,9X),F9,3/  PB  581 

US».'"GT.  OF  »**(',F*.1,'X  S01I0S)',3*.F8,3,8X,5(F9.5,9X),F9.3/  PB  182 

55*.'«EIGmT  QF  ,000  '.15x,F8.3,8*,5(F9.3,9X),F9.5/)  PB  385 

370  FORMATC  ',2x,'GR0SS  BOARO  ••EIGHT'.12x,F8.3,8x,F9.3,9x,F9.1/  PB  38* 

IIX.'mEICmT  OF  «*TER(',F5.1.'»  N.C . ) * .2X ,F 8. 3,8X ,F9.5,9X ,F9,5/  PB  585 

21*,'0*tN  dry  mGT.  of  B0*Rr',8l,F8.5,8X,F9.3,9x,F9.5/  PB  589 

55*, '"GT.  OF  *ESINS(',F».1,'»  SOLIOSI ' ,Fe.5,8X.F9.5,9x,F9.5/  PB  587 

*S*.'»GT,  OF  ,AI(',F*.l,'t  SOLIOS) '>5x>FB.5,BI,F9.5,9X.F9.3/  PB  388 

55*,'«eiGMT  OF  »000  ' . 1 3* ,F8. 5,8* ,F9. 3, 9* ,F9.3/ ) PB  589 

,FITE(6.180)  PB  390 

580  FORMATC  9*,  material  REQU  I RE«ENTS  ' . ' REO  . /CU  .FT . ' ) PB  591 

IFCIOPI  ,«Q.  0)  «9ITC(9,190)  PB  592 

190  FORMATC*', *5»,'R£0, /MSP  5/8  IN. BASIS')  PB  595 

IFdOPl  .EO.  1)  nRITECO.VOO)  PB  39* 

*00  FORMATC*',*!*, 'REQ./MSF  1/9  IN. BASIS')  PB  395 

IFdOPl  .Ei.  2)  »RITE(9,a|0)  PB  599 

*10  FORMAT!'*', u5»,'RE9./M9F  3/*  IN, BASIS')  PB  597 
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IFduPl  .tu.  3)  -RITE(b.«20) 

PB 

3PB 

920  FORM* T ( • ♦• ,9 5x . 'REQ./MSF  S/8  IN. BASIS') 

PB 

399 

IFduPl  .EO.  9)  bRITEIb.MlO) 

PB 

400 

950  FUBMiT ( ' ♦' ,95X , 'REQ./MSF  1/2  IN. BASIS') 

PB 

401 

IFdOP2  .EO.  0)  bRITECb.lSO) 

PB 

402 

IFdOP2  .EJ.  1)  »«ITE(b.lbO) 

PB 

403 

IFdC»2  .EG.  2)  »RITE(b.l70) 

PB 

404 

IFdOP2  .EO.  3)  »BITE(b.l80) 

PB 

40S 

lFdOP2  .El).  9)  »RtTE(b.990  ) 

PB 

406 

9«0  FCR“AT('Y',b7x,'MEO./CU.METEH') 

PB 

407 

IFTNOPT  .EG.  01  «RITE(b.a50) 

PB 

40B 

950  FORMAT ('♦• ,89X , >5/8  IN.  B A S I S ' . 5X , ' REO . /CU . "E TER ' ) 

P0 

409 

IF(nuPT  .EO.  0)  ««ITE(b,9bP)  SGRm. CV d . 18) . Ill .5). ( Y d . 19) , I»1 , 

5) 

*PB 

410 

l(vd,20).I<1.5).(/d.21l,I<l.5).(Vd,22).I:1.5) 

P0 

411 

IFTnoPT  .EU.  5)  »RI TE (b,970)  SGR» . ( V ( I . 1 8 ) , I s 1 . 3 ) , ( V ( I , 1 9 ) . I i 1 . 

3) 

.P0 

412 

l(Vd,20).Isl,5),(Y(I.21).Iil.3),(Vd.22).Iil.3) 

P0 

413 

9bO  FORMAT!'  ',2x,'.000  (0.  0.  SPEC.  GRAY,  s ’ , Fa . 2 . ' ) ' . / 

P0 

414 

15a. 'POUNDS  OF  0.0.  »UOD  '.7X.F8.3.8X,3(F9.5.9x),F9.3/ 

P0 

415 

25x, 'POUNDS  OF  UREE*.  *000  ' , 7X  , F 8 . 3 . 6x  , 3 (F  9 . 3 . 9X  ) ,F9 . 3/ 

P0 

416 

35x.'C'J.  ft.  of  ROuNDbOOO  ' . 7«  ,F  8.3.ex  , 3(F9. 5.9X)  ,F9,5/ 

P0 

417 

95X. 'RESIN  (L8S.  SOLIOS/LIOUIO) ' .9X.F8.3.8X. 5(F9.5.9X ) ,F9 

.3/ 

P0 

416 

5Ix.>«ax  (ubS.  SOLIDS) '. 13X.F8.5.8X , 3(F9. 3.9X) ,F9.3/) 

PB 

419 

970  FORMAT!'  ',2x,'rQ00  !0.  0.  SPEC.  GRAY.  = ' . F 4 . 2 , ' ) • , / 

PB 

420 

ISx.'POUNOS  OF  0.0.  -000  '.7x,F8.3.8X.F9.3,9X,F9.3/ 

P0 

421 

f5x. 'POUNDS  OF  green  -odd  '.7x,F8.3.8x,F9.3.9x,F9.3/ 

PB 

422 

SSk.'Cu,  Fl.  JF  R0UNl)»O00  • . 7x  ,F8.3.8X  ,F9. 5.9X  ,F9.5/ 

P0 

423 

93a. '-ESIN  !LbS.  SOLIOS/LIOUIU) '.ox,F«.3.8x,F9.3.9x,F9.3/ 

PB 

424 

53x.'«ax  !l8S.  SOLIDS) • . 1 5x ,fb. 3,8X ,F9.3.9x ,F9.3/) 

PP 

«2S 

«RITE!b.960) 

P0 

426 

980  format !' IFuEL  and  POmER  STATISTICS  IN  MILLION  8.T.U.S'/ 

PB 

427 

1 5CI, 'BTUS/CU.FI . ' ) 

P0 

426 

IFIIOPt  .EQ.  0)  *RITE!b.990) 

P0 

429 

990  format  ('♦' ,9  JA, '(JIUS/MSF  5/8  IN. BASIS') 

PB 

430 

IFdOPl  .EO.  1)  -RITEtb.500) 

PB 

431 

500  format !'♦', 93X , 'BTUS/MSF  1/u  IN. BASIS') 

PB 

432 

IFdOPl  .EQ.  2)  -RITEIb.SlO) 

PB 

433 

510  FORMAT !'♦• ,a3x. 'STUS/MSF  3/9  IN. BASIS') 

PB 

434 

IFdOPl  .EQ.  3)  -RITE!b,520) 

P0 

435 

520  format !'♦', 95X .' BTuS/msF  5/8  In. BASIS') 

P0 

436 

IFdOPl  .EQ.  9)  MRITE!b.530) 

PB 

437 

530  FrRMAI!'t',95X. 'BTUS/MSF  1/2  IN. BASIS') 

P9 

436 

IFdOPB  .EO.  0)  «RITE(b.l50) 

PB 

439 

IF!I0P2  .EU.  1)  RRITEIb.lbO) 

PB 

440 

IF!I0P2  .EQ.  2)  -RITE(b.l70) 

PB 

441 

IFdOPE  .EQ.  3)  MRITEIb.180) 

PB 

442 

IFdOPE  .EO,  9)  -HITE!b.590) 

PB 

443 

590  F0RMAT|'»',b7A,'HTUS/CU. METER') 

PB 

444 

IFINoRT  .EQ.  0)  wHITE!b,550) 

PB 

445 

550  FORMAT !'♦' .eax, 'S/e  IN.  BASIS', 5x, 'BTUS/CU. METER' ) 

PB 

446 

IF(noPT  .EQ.  0)  «RIT£!6,5bO)  BTRO , ( V ( I , 23 ) , I i 1 , 5 ) , ( V ( I , 29 ) , !• 1 , 

5) 

»P0 

447 

IIY!I,25),Iil,5),!Yd,2b),Iil,5),!Y(I,27),Iil,5].(Y(I,28) 

,I>1,5) 

# 

P0 

4436 

2PCTF,PCTT, !v!I,29),Ii1,5),PCTB, (Y!I,30),Iil ,5), lYII.Ib), 

111. 5), 

P0 

449 

3(Yd,31),I»t,5),!YlI,57),Iil,5),!Y!I.32),I*l,5) 

PB 

450 

IFINOPT  .EQ.  3)  "RITEIB,570)  BTRO , I Y 1 1 , 2 5 ) . 1 1 1 , 3 ) , I V d . 29 ) , I h , 

3) 

#P0 

451 

llY!I,25),Iil.3),(v!l,2b),Ii|,3),!Yd,27),Iil,3),!VII,2e) 

.111,3) 

r 

PB 

452 

2RCTF.PCTT,  !Yd,29).I*l,3),PCTB,  !Y!I,30),Iil,3),  !Y!I,3b), 

HI, 3). 

PB 

453 

3IYd,31),Iil,3),IY!I,37),Ii),3).!Yd,32).Ixl,3) 

PB 

454 

5b0  FORMAT!'  fuel  RF.QU  I REmENTS  ' /3x  , ' OR  YER  HE  AT  ' /3x  , ' t ' , F8.b, 

'8TUS/LB. 

MPB 

455 

lATER  EYAP.)',lX,FB.b,8X,3IF9.b.9X),F9.b/ 

PB 

456 

?5*,'PPCCESS  STE»K' /7«, 'PRESS' ,2li,P8.6,ex,  5(P'>.6,9*)  .PP.fc/  PB 

P0N0',17»,P«,6,B«.3(E9.6.P»),F9.6/  PB 

<l7«,'HE«TINS',14>,Fe.b,8X,l(F9.6,9(),F9.b/  PB 

57X  , •>‘ISCELL»NE0US' , 1 JX,F8.b,8x  ,i(F9.b,9x).F9.b/  PB 

blOX, 'TOTAL  Fuel  REQUIRED'. «x,FS.b,8x,5(F9.b,9x),F9.b//  PB 

7'  bOOD  FUEL  GEnERxTEO'/JX, 'ORY  F JMES/ I R I"S ( ' . F u . 1 , ' X/ • ,FU . 1 , ' X ) ' . PB 


e^X,F8.6,8X,3(F9,b,9X),F9.b/ 


PB 


931, 'kET  bank ( • ,F3.2, ' I I RATIO  OF  RObO)  ',F8.b,8x,3tF9,b,9x),F9,b/  PB 
93x , 'SCREENED  »ET  »000  RE  SI  DUES ' . «x ,F8 . b, 8X , 3 (E9 .b, 9x ) ,F9.b/  PB 

17x, 'TOTAL  FUEL  generated'. 6<.E8.b,8x,3(F9,b.9x),F9.b//  PB 

2'  auxiliary  Fuel  8TU  '.l2X.F8.b.8X.3(F9.b.9x).F9.b/7  PB 

3*  NET  FUEL  PEQUIRERENT'.l2x,F8.b.RX,3(F9.b.9X).F9.b//)  PB 

S70  FORRATC  FUEL  REOU  IRE  RE  NTS  ' / 3x  . ' OR  YER  MEAT  ' /3x  . ' ( ' .F8.b. 'BTuS/LB.rPB 
lATER  EVAP. )', u,F9.b.8X.F9.b.9X.F9.b/Sx, 'PROCESS  steam'/  PB 

27x, 'PRESS' .2|x.F8.b.8x.F9,b.9x,F9,b/  PB 

37x.'TMAb  P0N0'.17x.F8.b.8x.F9,b.9i,F9.b/  PB 

07x,'MEATING'.19x.F8.b.8i.F9.b,9x.F9.b/  PB 

57x.  'MISCELLANEOUS' . l3x.F8.b.8X.F9.b.9x,F9.b/  PB 

blOX. 'TOTAL  FUEL  REQUIRED'. «x,F8.b.8X.F9.b.9X.F9.b//  PB 

7'  mood  fuel  GEneRATEO'/SX.’DRY  F INES/TRImsT ’ .F«. I . 'X/' .F«. I . 'X) ' . PB 
N2x«F8.b.ei.F9,b.9x,F9.b/  PB 


B5T 

RSB 

aS9 

RbO 

ubl 

Rb2 

«b3 

ubR 

ubS 

«bb 

«b7 

RbB 

ab9 

970 

971 

972 

973 
979 
975 
97b 
977 


I • J.i.  ‘ : 1 «»TI0  cf  t-D'O)  ’ .Fg,6,8l.F«.k.9a,F4.e/ 
<>5>. 'SCHf  EK£U  »Et  .000  »E  S lOUES  ■ . “»  .FJ . 6 , 8x  , F"*  .6, 9 1 , FQ . 6/ 
l7i,'TCT»i.  FJEL  GE’.EB»IEO' ,e«.F8.6.8».F<i,6,9«,F9.o// 
i’  *U«UI»»»  Fuel  8TU  ■ . l;x.F8.b>8l,F<),a.9«,F9.6// 
i'  NET  Fuel  HEwUlSENENT  ’ , U»,F8.6,8I  .FlJ.b,**  .FO.b//) 

• »lTE(b,^>80) 

S80  FO»H*T('  FUEL  *n0  P0«E»  BEOuIPEO ' .b«, ’NEO./CU.FT. ' ) 

IFflOBl  .EO.  0)  «BlTE(b,390) 


IF(ILB1  .EU.  I)  «wI!E(b,UOO) 

IF(IOBt  .EO.  2)  .BITECb.UlO) 

IfdOBl  .Ei.  J)  «HlTE(b,420) 

IFCOPl  .EO.  a)  «BlTE(b,«30) 

IF(I0B2  .Eli,  0)  .BITt(b,  ISO) 

IF(I0<>2  .Ei.  I)  »BITE(b,lbO) 

IF(I0B2  .E'J.  2)  .BlTECb.lTO) 

IF(10B2  .Ei.  3)  -BITEEb.ieO) 

IF(I0P2  .E3.  a)  .BIIEtb.daO) 

IF(nOBT  .EQ.  0)  «BITE(b,4S0) 

IFC.OBT  .EJ.  0)  .BITE  (b, 590)  CR«h,  (V  (I,  34)  , I»1 ,5) 


IF(nobt  .eo.  5)  .aiTEIb.bOO)  Cknh , ( v ( 1 , 5u ) , I * 1 . 3) 


S90 

format ( 

OF  .H  . 

ELECT. 

HQwER 

(!• 

F4. 

3.'/k.»)',5x,F8.4,Bx,3{F9,3,9x),P8 

498 

1F9, 3/  ) 

P6 

499 

eOC 

f ORHA  T ( 

OF  .H  , 

Elect. 

PO-ER 

(»' 

F4. 

3,'/K»M)>,3i,F8.4,8x,F9,3.9X,F9,Pe 

500 

15/) 

PB 

501 

IF (hoPT 

.£0. 

0 

.And. 

IFOP 

.EO. 

0) 

«BITE(b.blO)PnlL.(V(I.33),I»l,5)PB 

502 

IF (NQPT 

.Ci. 

0 

.and. 

IFOP 

.EQ. 

1) 

FiPITe(b,b20)PCOL.(v(I.33),I«l,5)PB 

503 

IF (NOP! 

.ea. 

u 

,anO, 

IFOP 

.Ei. 

2) 

BBirE(b,b30)PG4S.(V(I,33).I«l,5)PS 

504 

IF (NOPT 

.£■). 

0 

.and. 

IFOP 

.EO. 

5) 

"BITE  Cb.b4  0)Pt.O0,  (V  (1,33 ),I»  1,5 )PB 

505 

IE INOPT 

.E(f. 

5 

.AND. 

IFOP 

.EO. 

0) 

><BITE(b,b50)P0IL,(v(I,35),l*l.5)P8 

50b 

IF  (NQPT 

.EO. 

.and. 

IFOP 

.Eo. 

) ) 

*BITE(b,bbO)PCOL, (V(I,33),I»1,3)P8 

507 

IF  (NOPT 

.Ei. 

1 

.and. 

IFOP 

.EO. 

2) 

oBITC (b,b70 )PG4S, (V (1 , 33) , 1*1 , 3)PB 

508 

IF (NOPT 

.Ei. 

5 

.and. 

IFOP 

.EO. 

3) 

BBirE(b,b80)PkOO, (V(I,33),I«t,3)PB 

509 

IF (NQPT 

.Ei. 

0 

.and  , 

NAXF 

.EO. 

1 ) 

«BITE(b,b90)P0IL, (V(I,35),1*I,5)PB 

510 

IF (NQPT 

.Ei. 

0 

,anO. 

NAXF 

.EQ. 

3) 

»BlTE(b,b9))PG4S, (V(l,35),l»l,5)PB 

511 

MO 

FORMA  t ( 

BflL  . 

OIL  (5 

»Ffe,2 

, ’/bbl.) 

' ,Bx,F8.b,8X,3(F9,b,9x),F9,b)  PB 

512 

forma  T ( 

TONS 

coal  (S',Fb, 

2,  ’ /TON) 

•,9X,F8.b,8X,5(F9.b,9l),F9.b)  PB 

513 

o50  F0SB4T ( • 
buO  FCiB“4T  ( ' 
bS'l  FuB-4  I ( • 

^ 70  FORH*  f ( • 


GAS  (S'gFb,?,  '/MCF.)  'fQx^Fe. 6, ax, 5(F9, ft, 9K),F9, 6) 
TONS  -000  (I ' ,Fft,?,  ' /TON ) ' ,9x ,F8.6,ax,3(F9.ft,9x ) ,F9.6) 
OIL  (S'tFft.^,‘  /6BL  .)'»9x,F8,b,6X,F9,b,9*,F9.ft) 
T)%S  COAL  ($',Fft,?,»/T0K)*,9x,Fa,b,8x,F9,ft,9X,F9,b) 
“CF.  GAS  (li'.Fb.^,*  /‘iCF  .)',9x,P8,ft,8l,F9,ft,9X,F9,ft) 


ftBO  Fr)R-4T(f  TONS  «000  ($' ,Fb.2,  ' /TON)  ' ,9<,F8.b,8x,F9.b,9»,F9.b) 


IF(nOPT  .ej.  3 .4nO.  n4«f  .eq.  1)  »SITE(b,700)P0II.,(V(I,35),I»1.3)P8 


IF (\OPT 

.FT. 

i .and 

, NAXF 

.EG,  5)  -PIte(b,70\)P6AS,(vfI, 55), 1*1,5)96 

521 

©90 

format ( • 

RBl  . 

A'JX  , 

OIL 

(S 

,F5.2p  ' /86L.  ) '»5X,F8.o,8x,3(P9,b,9x),F9,PB 

522 

lb) 

PB 

523 

b9  \ 

format ( • 

'*CF  . 

A.iX, 

GAS 

l\ 

,FS.2,*/MCF,)*,SX,Fa,b,8X,ifFQ.b,9x),F9,PB 

524 

lb) 

PB 

525 

700 

FORMAT ( ' 

hBl  . 

AUX  , 

OIL 

( ) 

,F5.2,  '/BBL  ,)'»5x,Fa,b,ax,F9,b,9x,FQ,b)  PB 

52b 

701 

forma  r ( • 

mCF  , 

AiJX  . 

GAS 

(5 

,F5,2,'/HCF,)*,5X,F8,bf8X,F9,6,9X,F9,6)  PB 

527 

098 

CHnt I JUE 

PB 

528 

099 

continue 

PB 

529 

-R I re (b. 

1 ) 0 0 ) 

PB 

530 

1000 

format { • 

1 ' 

PB 

531 

Si'bbuuT  iNt  Sub  1 (H.iT  / .OBC  T .fiTuE  ) 


C •••  Tt-is  SubbouTInE  C4lCiiL‘TE5  TmE  effective  heftins  vfloE  of 
r •••  .1)00  Type  Fuels  4t  4 given  boisture  content  fssuning  * flue  gfs 

c •••  TeMPEB4TUBe  OF  aOO  OEGBEES  F4M8ENHEIT,  40E  excess  419 


PCTB*1).40 

TlibS.O 

T24400.n 

C GBEEn  F14SIS  “OISTuRE  COM. (OB  LSS.  .4TE9/LB.  FUEL) 

r,BCTsO“CT/(1.0*0"CT) 

C .eight  of  bOOO  beb  lb.  of  GBFEN  OB  .ET  .000  FUEL 
«T.P»1 .0-&HCT 


• ••  hExT  lLSS  pESCEnT  due  to  hOISTLiRE  (C4LLE0  SENSIBLE  bE»I  LOSS.ShL)  SUBl 


HHTV«HHTV*10,0**b 

SMUs(GMCT*(1090,7-TU(0.a5S*T?)))/((l.0*GHCT)*HMTv) 
C #•*  hydrogen  h£AT  loss  PERCENT 

bSatC  1090  .T-t  !♦  (0.aS5*t2)  )/MHTV 
c ***  DRY  GAS  HEAT  LOSS  PERCENT 

O^Ls(  t ta-T  I )*(  ! ,c^^9*(PCTR)♦l  ,52)  )/HMTV 
C **•  OTm^R  (MISCELLANEOUS)  hEAT  LOSS  PERCENT  * 5 PERCENT 
C t.iTal  hEaT  loss  percent 

f^LsSHl  ♦-H).,.) ML  *0,05 

c ***  efficiency  percent 

tFPsI  ,00-Thl 

IF(EEF  ,LT.  0.0)  EFF*o,0 


. .. 


c 

fmonaCI  hlacxouT  oCCUBS  at  **.C.  GRCATER  Than  PERCENT 

SUBI 

n 

IftC^CT  .GI.  O.o«)  E^Fift.O 

suit 

28 

c 

• • • 

>VilL>HL(  'EM  POUND 

SUBI 

29 

4VM»^Tlir*M»JTv 

SUBI 

30 

c 

• • * 

EffECflVE  mTU'S  pep  pound 

SUBI 

31 

•JTuE»*VM«EPf 

SUBI 

32 

IP(iJTi;E  .Lt.  0.0)  eruEPO.O 

SUBI 

33 

c 

• • • 

piLuiON  EFFECTIVE  aru's  pep  pound  of  fuel 

SUBI 

39 

bTUEsHTuE/lo.uxb.O 

SUBI 

3S 

hHTVSNV*Tv/10.O**N.0 

SUBI 

3* 

netunn 

SUBI 

37 

SJUPiIuI  INF.  SUl‘^(BTFU,HTEF,  IFOP) 

SUB 

I 

c 

• • • 

this  SlOPOuriNt  C«LCulfTE3  t"E  EFFECTIVE  HEATING  VALUE  OF 

the 

SUB 

2 

c 

ft  ft* 

VAPU'US  FohLS  ON  TMt  BASIS  OF  A SI"»LE  PEPCENT  EFFICIENCT 

LOSS 

SUB 

3 

IFdFDP  .FO.  (1)  "TEF»0.80*PTFU 

SUB 

a 

IFIIFOP  .EQ.  1)  e)TEF»0.80»oTFU 

SUB 

S 

IFIIFOP  .EO.  2)  STEF»o,87*PTFo 

SUB 

6 

IFIIFOP  .EG.  3)  HTEFs0.65«eTFil 

SUB 

7 

nETupn 

SUB 

B 

END 

PS 
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